Question

Дано натуральне число N (N < 100), що визначає вік людини в роках.
Після цього числа потрібно дописати одне з слів: рік,роки,років;. Наприклад: 1 рік, 23 роки, 97 років. Скласти програму. на паскалі

Answer 1

program AgeInWords;

var

age: integer;

ageWord: string;

begin

write('Введіть вік в роках: ');

readln(age);

if age mod 10 = 1 then ageWord := 'рік'

else if (age mod 10 = 2) or (age mod 10 = 3) or (age mod 10 = 4) then ageWord := 'роки'

else ageWord := 'років';

writeln(age, ' ', ageWord);

end.