Привет! Меня зовут Даниил‚ и сегодня я хочу рассказать тебе‚ как написать программу на языке программирования Паскаль‚ которая будет выводить возраст человека с правильным склонением слова ″год″.Для начала‚ нам потребуется переменная для хранения возраста пользователя. Давай назовем её ″age″. Мы можем ввести значение этой переменной с клавиатуры‚ используя функцию Readln.pascal
var
age⁚ Integer; // Переменная для хранения возраста
begin
Write(‘Введите возраст⁚ ‘);
Readln(age);
// Далее необходимо проверить значение переменной age и вывести нужное сообщение
end.
Теперь‚ когда мы получили значение возраста от пользователя‚ перейдем к проверке значения переменной ″age″ и выводу правильного сообщения с правильным склонением.Для этого нам понадобится условный оператор If-Else. Мы можем использовать его‚ чтобы проверить‚ в каком диапазоне находится возраст пользователя‚ и на основе этого выбрать правильное склонение слова ″год″.pascal
var
age⁚ Integer; // Переменная для хранения возраста
begin
Write(‘Введите возраст⁚ ‘);
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.Давай разберемся‚ как работает этот код. Сначала мы проверяем‚ если возраст пользователя находится в диапазоне от 11 до 14 включительно‚ то мы выводим сообщение с ″лет″. Затем мы проверяем‚ если последняя цифра возраста равна 1‚ то мы выводим сообщение с ″год″. Если последняя цифра находится в диапазоне от 2 до 4 включительно‚ то мы выводим сообщение с ″года″. В противном случае‚ мы выводим сообщение с ″лет″.
Теперь мы можем запустить программу и протестировать её с разными значениями возраста.
Например‚ если мы введем возраст 18‚ программа выведет ″Вам 18 лет″. Если мы введем возраст 21‚ программа выведет ″Вам 21 год″. И‚ наконец‚ если мы введем возраст 22‚ программа выведет ″Вам 22 года″.
Надеюсь‚ моя статья была полезной для тебя! Удачи в программировании на Паскале!