Напишите простейшую задачку в Pascal (алгоритмы ветвления if then):
Ввести возраст человека (от 1 до 150 лет) и вывести его вместе с последующим словом "год", "года", "лет".
--------------------------
Например, я вводу "150" и вместе с числом выходит "лет"
или я ввожу "21" и вместе с числом выходит "год"
Ввести возраст человека (от 1 до 150 лет) и вывести его вместе с последующим словом "год", "года", "лет".
--------------------------
Например, я вводу "150" и вместе с числом выходит "лет"
или я ввожу "21" и вместе с числом выходит "год"
More Questions From This User See All
Answers & Comments
Verified answer
Var b, c: integer;begin
Writeln('Введите ваш возраст');
Readln(b);if b <= 0 then
WriteLn('Вам 0 лет')else beginc := b mod 100;
if (c >= 10) and (c <= 20) then WriteLn('Вам ', b, ' лет')elsecase (b mod 10) of1: WriteLn('Вам ', b, ' год');2..4: WriteLn('Вам ', b, ' года');5..9, 0: WriteLn('Вам ', b, ' лет')end;
end;
Writeln('Для выхода нажмите <Enter>');
Readln;
end.