Вывести возраст человека (от 1 до 99) и вывести возраст со словом (год, года или лет)

эот через программу паскаль) помогите как ниписать в программе

типо такого: program qq; и тд

Question

Информатика

Галюня

18 января, 00:21

Вывести возраст человека (от 1 до 99) и вывести возраст со словом (год, года или лет)

эот через программу паскаль) помогите как ниписать в программе

типо такого: program qq; и тд

+5

Ответы (1)

Знаете ответ на вопрос?

Ким · Answer 1

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.