Question

Напишите программу, которая получает возраст человека (целое число, не превышающее 120) и выводит этот возраст со словом «год», «года» или «лет». Например, «21 год», «22 года», «25 лет». Пример: Введите возраст: 18 Вам 18 лет. Пример: Введите возраст: 21 Вам 21 год. Пример: Введите возраст: 22 Вам 22 года. PASCAL

Answer 1

var

age: integer;

begin

writeln('Введите возраст:');

readln(age);

if (age mod 10 = 1) then writeln('Вам ', age, ' год')

else if (age mod 10 > 1) and (age mod 10 < 5) then writeln('Вам ', age, ' года')

else writeln('Вам ', age, ' лет');

end.

Answer 2

Вот пример программы на Pascal, которая выполняет указанную задачу:

pascalCopy code
program AgeInWords;
var
  age: integer;
begin
  writeln('Введите возраст: ');
  readln(age);

  if (age >= 11) and (age <= 14) then
    writeln('Вам ', age, ' лет.')
  else
  begin
    case age mod 10 of
      1: writeln('Вам ', age, ' год.');
      2, 3, 4: writeln('Вам ', age, ' года.');
    else
      writeln('Вам ', age, ' лет.');
    end;
  end;
end.

Эта программа сначала запрашивает возраст пользователя, а затем использует оператор case для определения правильного склонения слова "год" в зависимости от возраста. Если возраст находится в диапазоне от 11 до 14, то всегда используется форма "лет". В противном случае программа определяет склонение с помощью оператора case.