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.