Question

Напишите простейшую в pascal (алгоритмы ветвления if then): ввести возраст человека (от 1 до 150 лет) и вывести его вместе с последующим словом "год", "года", "лет". например, я вводу "150" и вместе с числом выходит "лет" или я ввожу "21" и вместе с числом выходит "год"

Answer 1

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.