Question

Задание:
Ilt ввести с клавиатуры три целых числа, найти их сумму, произведение и среднее
арифметическое
Пример:
Введите три целых числа:
578
5+748-20
578280
(547+8)/3=6,667 можно фото
пж пж пж пожалуйста ​

Answer 1

pascal

var

i,p,a:integer;s:real;

 begin

   s:=0;

   p:=1;

   writeln('введите 3 числа через enter');

   for i:=1 to 3 do begin

      readln(a);

      s:=s+a;

      p:=p*a;

     end;

     writeln('сумма 3 чисел =',s);

      writeln('произведение 3 чисел =',p);

      writeln('среднее арифметическое 3 чисел=',s/3)

 end.