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

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

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

Question

Информатика

Евмен

3 сентября, 07:33

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

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

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

+3

Ответы (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.