1) Пользователь вводит свой возраст с клавиатуры. Пример: Ввод: 10 Вас зовут Андрей! Вам 10 лет, через 7 лет вам будет 17 лет. Отобразить сколько ему лет, и сколько ему будет лет…

Давайте разберём задачи одну за другой и предложим решения на языке программирования Паскаль, как вы и запрашивали для 9 класса.

Задача 1: Возраст пользователя

Цель: Пользователь вводит свой возраст с клавиатуры и программа выводит сообщение с его возрастом и тем, сколько ему будет через 7 лет.

Решение:

program AgeCalculator;
var
  age: integer;
begin
  writeln('Введите ваш возраст:');
  readln(age);
  writeln('Вас зовут Андрей! Вам ', age, ' лет, через 7 лет вам будет ', age + 7, ' лет.');
end.

Объяснение:

1. Мы объявляем переменную age типа integer для хранения возраста.
2. Выводим сообщение с просьбой ввести возраст.
3. Считываем введённое значение и сохраняем его в переменной age.
4. Выводим результат в консоль, используя оператор writeln, где мы просто добавляем 7 к введённому возрасту.

Задача 2: Операции с двумя числами

Цель: Пользователь вводит два числа, и программа выводит результаты их сложения, вычитания, умножения и деления.

Решение:

program MathOperations;
var
  a, b: real; // Используем real для деления, чтобы получить дробный результат
begin
  writeln('Введите первое число:');
  readln(a);
  writeln('Введите второе число:');
  readln(b);
  
  writeln(a:0:0, ' + ', b:0:0, ' = ', a + b:0:0);
  writeln(a:0:0, ' - ', b:0:0, ' = ', a - b:0:0);
  writeln(a:0:0, ' * ', b:0:0, ' = ', a * b:0:0);
  if b <> 0 then
    writeln(a:0:0, ' / ', b:0:0, ' = ', a / b:0:2)
  else
    writeln('Ошибка: деление на ноль.');
end.

Объяснение:

1. Объявляем переменные a и b типа real, чтобы они могли хранить дробные значения.
2. Пользователь вводит два числа.
3. Вычисляем сумму, разность, произведение и частное, выводя результаты с использованием формата вывода (с фиксированной точкой).
4. Проверяем, не равно ли b нулю, перед тем как выполнять деление.

Задача 3: Периметр треугольника

Цель: Пользователь вводит длины трех сторон треугольника, и программа выводит периметр.

Решение:

program TrianglePerimeter;
var
  a, b, c: integer;
begin
  writeln('Введите длину первой стороны треугольника (a):');
  readln(a);
  writeln('Введите длину второй стороны треугольника (b):');
  readln(b);
  writeln('Введите длину третьей стороны треугольника (c):');
  readln(c);

  writeln('Периметр треугольника равен: a + b + c = ', a + b + c);
end.

Объяснение:

1. Объявляем три переменные a, b и c типа integer для хранения длин сторон треугольника.
2. Запрашиваем у пользователя ввод каждой из сторон.
3. Вычисляем периметр, складывая значения a, b и c и выводим результат.

Эти три программы позволяют вам работать с пользовательским вводом и выполнять простые математические операции, а также обрабатывать данные для геометрии. Если у вас есть дополнительные вопросы или требуется помощь с другими заданиями, не стесняйтесь спрашивать!