Question

Алгоритм произведения и ср. арифметического 3-х чисел пожалуста помогите нужно сделать или в кумири или в паскале

Answer 1

Var
  a, b, c: real;

begin
  writeln('Введите первое число ');
  readln(a);
  writeln('Введите второе число ');
  readln(b);
  writeln('Введите третье число ');
  readln(c);
  writeln('Произведение этих чисел равно ');
  writeln(a * b * c);
  writeln('Среднее арифметическое этих чисел равно ');
  writeln((a + b + c) / 3);
end.

Answer 2

Конечно, я могу помочь вам написать алгоритм произведения и среднего арифметического трех чисел на языке Pascal. Вот пример кода:

scssCopy code
program multiplication_and_average;

var
  num1, num2, num3: integer;
  product: integer;
  average: real;

begin
  {вводим три числа}
  writeln('Введите первое число: ');
  readln(num1);
  writeln('Введите второе число: ');
  readln(num2);
  writeln('Введите третье число: ');
  readln(num3);
  
  {вычисляем произведение трех чисел}
  product := num1 * num2 * num3;
  writeln('Произведение трех чисел равно: ', product);
  
  {вычисляем среднее арифметическое трех чисел}
  average := (num1 + num2 + num3) / 3;
  writeln('Среднее арифметическое трех чисел равно: ', average:0:2);
  
  readln;
end.

В этом примере мы сначала запрашиваем три целых числа от пользователя. Затем мы вычисляем произведение трех чисел и выводим результат на экран. Затем мы вычисляем среднее арифметическое трех чисел, используя формулу (num1 + num2 + num3) / 3, и выводим результат на экран. Обратите внимание, что мы используем форматирование вывода :0:2, чтобы ограничить количество десятичных знаков до двух.

Вы можете скомпилировать и запустить этот код на вашем компьютере, используя среду разработки Pascal, такую как Free Pascal или Turbo Pascal.