ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1785. Трудности локализации

AC. Take a look at my original solution :)
Послано Anton Smoliakov 21 янв 2022 11:28
var
  a: array[1..2000] of string;
  i: integer;
begin

  for i := 1 to 2000 do
  begin
    if (i >= 1) and (i < 5) then a[i] := 'few';
    if (i >= 5) and (i < 10) then a[i] := 'several';
    if (i >= 10) and (i < 20) then a[i] := 'pack';
    if (i >= 20) and (i < 50) then a[i] := 'lots';
    if (i >= 50) and (i < 100) then a[i] := 'horde';
    if (i >= 100) and (i < 250) then a[i] := 'throng';
    if (i >= 250) and (i < 500) then a[i] := 'swarm';
    if (i >= 500) and (i < 1000) then a[i] := 'zounds';
    if i >= 1000 then a[i] := 'legion';
  end;

  readln(i);
  writeln(a[i]);

end.