Паскаль. Оператор выбора.Дано натуральное число N (N<100), что означает возраст человека...

Question

Паскаль. Оператор выбора.
Дано натуральное число N (N<100), что означает возраст человека в годах. Дать для этого числа наименование: "год", "года", "лет".

Comments

Паскаль ABC:Var A:integer; S:string;BeginReadLn(A);Case round(Power((A div 10) mod 10 -1,((A div 10) mod 10 -2)*((A div 10) mod 10 -3)*((A div 10) mod 10 -4)*((A div 10) mod 10 -5)*((A div 10) mod 10 -6)*((A div 10) mod 10 -7)*((A div 10) mod 10 -8)*((A div 10) mod 10 -9))*(A mod 10)) of1:S:=' Год ';2..4:S:=' Года ';0,5..9:S:=' Лет ';else S:='';End;WriteLn(A,S);ReadLnEnd.

Answer 1

Var
  n:integer;
  s:string;
begin
readln(n);
case n mod 10 of
  1:s:=' год';
  2..4:s:=' года';
  0,5..9:s:=' лет';
  end;
case n mod 100 of  11..19:s:=' лет';
  end;
writeln(n,s);
end.