По данному возрасту человека (n целое число) вывести сообщение каков возраст,

По заданному возрасту человека (n целое число) вывести сообщение каков возраст, добавляя к n слова лет, год или года. К примеру, 25 лет, 4 года, 51 год.

Задать свой вопрос
1 ответ
Var
  n:integer;
  s:string;
begin
readln(n);
case n mod 10 of
  1:s:=' год';
  2..4:s:=' года';
  0,5..9:s:=' лет';
  end;
case n mod 100 of
  11..19:s:=' лет';
  end;
writeln(n,s);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт