Question

(решать в Pascal ABC): Найти, сумму, произведение и среднее арифметическое 3 целых чисел: a=10, b=25, c=35.​

Answer 1

program *название программы*;

var a,b,c,S,P:inreger; Sr:real;

begin

a:=10;

b:=25;

c:=35;

S:=a+b+c;

P:=a*b*c;

Sr:=S/3;

Writeln('Сумма=',S,', произведение=',P,', среднее арифметическое=',Sr);

end.

Answer 2

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

pascalCopy code
program CalculateSumProdAvg;

var
  a, b, c: integer;
  sum, product: integer;
  average: real;

begin
  { Задайте значения для a, b и c }
  a := 10;
  b := 25;
  c := 35;
  
  { Вычисление суммы }
  sum := a + b + c;
  
  { Вычисление произведения }
  product := a * b * c;
  
  { Вычисление среднего арифметического }
  average := sum / 3;
  
  { Вывод результатов }
  writeln('Сумма:', sum);
  writeln('Произведение:', product);
  writeln('Среднее арифметическое:', average:0:2);
end.

При запуске этой программы, она выведет следующие результаты:

makefileCopy code
Сумма: 70
Произведение: 8750
Среднее арифметическое: 23.33

Это и есть сумма, произведение и среднее арифметическое чисел a=10, b=25, c=35.