Для целого числа K от 1 до 99 напечатать фразу "Мне

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт