Для целого числа K от 1 до 99 напечатать фразу "Мне k лет", учитывая при этом, что при некоторых значениях K слово "лет" надо заменить на слово "год" или "года". Например, 11 лет, 22 года, 51 год.

Для целого числа K от 1 до 99 напечатать фразу "Мне k лет", учитывая при этом, что при некоторых значениях K слово "лет" надо заменить на слово "год" или "года". Например, 11 лет, 22 года, 51 год.
Гость
Ответ(ы) на вопрос:
Гость
интересная задачка) var i,n :integer; begin  n:=99;  for i:=1 to n do begin       case i of        11..14 :writeln('мне ',i,' лет');         else            case i mod 10 of          1:writeln('мне ',i,' год');          2..4:writeln('мне ',i,' года');         else           writeln('мне ',i,' лет');            end;       end;  end; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы