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

aliyevasevgi5 aliyevasevgi5    3   09.06.2019 16:30    4

Ответы
Тетяна2401 Тетяна2401  01.10.2020 23:20
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика