Для целого числа 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.
Не нашли ответ?
Похожие вопросы