Написать в Паскале программу : Ввести возраст человека (от 1 до 150 лет) и вывести его вместе с предыдущим словам "год","года" или "лет".
Answers & Comments
guztata
Var n,b: integer; begin writeln ('vvel n'); read (n); b:= n mod 10; if b=1 then writeln (n,'god'); if (b>1) and (b<5) then writeln (n,'goda') else writeln (n,'let'); end.
Answers & Comments
n,b: integer;
begin
writeln ('vvel n');
read (n);
b:= n mod 10;
if b=1 then writeln (n,'god');
if (b>1) and (b<5) then writeln (n,'goda')
else
writeln (n,'let');
end.