Ответы на вопрос:
var
Age : integer;
begin
Repeat
Write('Введите Ваш возраст: ');
Readln(Age);
until Age in [1..99];
if Age in [10..20] then Writeln('Мне ', Age, ' лет') else
case Age mod 10 of
1: Writeln('Мне ', Age, ' год');
2, 3, 4 : Writeln('Мне ', Age, ' года');
0, 5..9 : Writeln('Мне ', Age, ' лет');
end;
end.
Популярно: Информатика
-
danabekzanova23.02.2023 19:02
-
N23N11.10.2020 03:10
-
ФархадАсланов27.12.2021 19:00
-
andreygavrilov28.08.2021 08:13
-
svetikkosharna27.02.2023 13:00
-
Марта0923.10.2022 18:02
-
ReyLiv02.03.2021 19:10
-
SmartGirl55507.10.2022 05:38
-
Лина5г06.06.2022 16:51
-
skripalevadiana18.02.2020 01:52