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

Question

Информатика

Антон

7 августа, 16:14

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

+2

Ответы (1)

Знаете ответ на вопрос?

Светуся · Answer 1

Интересная задачка)

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.