Question

Написать в Паскале программу : Ввести возраст человека (от 1 до 150 лет) и вывести его вместе с предыдущим словам "год","года" или "лет".

Answer 1

Var
n,b: integer;
begin
writeln ('vvel n');
read (n);
b:= n mod 10;
if b=1 then writeln (n,'god');
if (b>1) and (b<5) then writeln (n,'goda')
else
writeln  (n,'let');
end.

Answer 2

Программа на Паскале для ввода возраста человека и вывода его вместе с соответствующим словом "год", "года" или "лет":

program AgeOutput;
var
  age: integer;
begin
  writeln('Введите возраст человека (от 1 до 150 лет): ');
  readln(age);
  
  if (age >= 11) and (age <= 14) then
    writeln('Ваш возраст: ', age, ' лет')
  else if (age mod 10 = 1) then
    writeln('Ваш возраст: ', age, ' год')
  else if (age mod 10 >= 2) and (age mod 10 <= 4) then
    writeln('Ваш возраст: ', age, ' года')
  else
    writeln('Ваш возраст: ', age, ' лет');
end.

В этой программе мы сначала запрашиваем у пользователя ввести возраст человека. Затем, используя условные операторы if и else, мы определяем правильное склонение слова "год" в зависимости от введенного возраста.

Если возраст находится в диапазоне от 11 до 14, то выводится "лет". Если последняя цифра возраста равна 1, то выводится "год". Если последняя цифра находится в диапазоне от 2 до 4, то выводится "года". Во всех остальных случаях выводится "лет".

Например, если пользователь вводит возраст 25, программа выведет "Ваш возраст: 25 лет". Если пользователь вводит возраст 12, программа выведет "Ваш возраст: 12 лет". Если пользователь вводит возраст 7, программа выведет "Ваш возраст: 7 лет".