Question

ДанонатуральноечислоN (N<100), определяющеевозрастчеловекавгодах. Датьдляэтогочисланаименование: "год", "года", "лет.(используя if,then,else)

Answer 1

Var n:integer;
begin
readln(n);
if (n mod 10 =1) and (n<>11) then
             writeln(n,' год')
else
             if (n>=5) and (n<=20) then
                         writeln(n,' лет')
             else
                         if (n mod 10<=4) and (n mod 10>0) then
                                  writeln(n,' года')
                         else
                                  writeln(n,' лет');
end.