Привет! Я с удовольствием поделюсь с тобой программой на языке Pascal‚ которая решает задачу нахождения суммы‚ произведения и среднего арифметического трех целых чисел‚ введенных с клавиатуры.pascal
program ArithmeticMean;
var
num1‚ num2‚ num3⁚ Integer;
sum‚ product⁚ Integer;
average⁚ Real;
begin
// Вводим целые числа с клавиатуры
writeln(‘Введите первое число⁚ ‘);
readln(num1);
writeln(‘Введите второе число⁚ ‘);
readln(num2);
writeln(‘Введите третье число⁚ ‘);
readln(num3);
// Вычисляем сумму‚ произведение и среднее арифметическое
sum ⁚ num1 num2 num3;
product ⁚ num1 * num2 * num3;
average ⁚ sum / 3;
writeln(num1‚ ‘ ‘‚ num2‚ ‘ ‘‚ num3‚ »‚ sum);
writeln(num1‚ ‘*’‚ num2‚ ‘*’‚ num3‚ »‚ product);
writeln(‘(‘‚ num1‚ ‘ ‘‚ num2‚ ‘ ‘‚ num3‚ ‘)/3 ‘‚ average⁚0⁚6);
end.Я сам проверил эту программу и она работает исправно. После запуска программы‚ она предложит тебе ввести три целых числа. После ввода чисел‚ программа вычислит сумму‚ произведение и среднее арифметическое этих чисел и выведет результат на экран.Например‚ при вводе чисел 4‚ 5 и 7‚ результат будет следующим⁚
4 5 716
4*5*7140
(4 5 7)/3=5.333333
Эта программа очень проста и может быть использована в качестве основы для более сложных задач. Надеюсь‚ она была полезной для тебя! Удачи в изучении программирования!