Дано целое число n (1 ≤ n ≤ 99), определяющее возраст человека (в годах). для этого числа напечатать фразу «мне n лет», учитывая при этом, что при некоторых значениях n слово «лет» надо заменить на слово «год» или «года». завтра пробный гиа, !
Var n:integer; begin readln(n); if (n mod 10>=5)or(n mod 10=0) then writeln('мне ',n,' лет'); if n mod 10=1 then writeln('мне ',n,' год'); if (n mod 10>1)and(n mod 10<5) then writeln('мне ',n,' года'); end.
n:integer;
begin
readln(n);
if (n mod 10>=5)or(n mod 10=0) then
writeln('мне ',n,' лет');
if n mod 10=1 then
writeln('мне ',n,' год');
if (n mod 10>1)and(n mod 10<5) then
writeln('мне ',n,' года');
end.