Вывести возраст человека ( от 1 до 99) и вывести возраст со словом ( год, года или лет) эот через программу паскаль) помогите как ниписать в программе типо такого: program qq; и тд
Вывести возраст человека ( от 1 до 99) и вывести возраст со словом ( год, года или лет) эот через программу паскаль) помогите как ниписать в программе типо такого: program qq; и тд
Гость
Ответ(ы) на вопрос:
Гостьprogram qq;
var a:integer;
begin
readln(a);
a:=a mod 10;
if a=1 then writeln('god')
else if (a=2) or (a=3) or (a=4) then writeln ('goda')
else writeln('let');
end.
Не нашли ответ?
Похожие вопросы