Ответы на вопрос:
Вроде так: var b, c: integer; begin writeln('введите ваш возраст'); readln(b); if b < = 0 then writeln('вам 0 лет') else begin c : = b mod 100; if (c > = 10) and (c < = 20) then writeln('вам ', b, ' лет') else case (b mod 10) of 1: writeln('вам ', b, ' год'); 2..4: writeln('вам ', b, ' года'); 5..9, 0: writeln('вам ', b, ' лет') end; end; writeln('для выхода нажмите < enter> '); readln; end .
Популярно: Информатика
-
Веттуня03.10.2022 07:37
-
niklysov201529.03.2022 13:30
-
kkatya32221.03.2020 21:26
-
Арте2026.02.2022 09:16
-
mia7328.02.2022 07:06
-
Prostoy2310.02.2020 12:44
-
ка56612.11.2020 16:50
-
Kozlov24ivan12205.08.2020 14:56
-
GordienkoA2011.02.2023 00:45
-
спартак37106.07.2022 05:40