Напишите программу, которая находит сумму, произведение и среднее арифметическое трех...

Question

Напишите программу, которая находит сумму, произведение и среднее арифметическое трех целых чисел, введенных с клавиатуры. Например при вводе чисел 4, 5 и 7мы должны получить ответ 4+5+7=16, 4*5*7=140, ( 4+5+7)/3=5.333333..

Answer 1

Var
   a,b,c:integer;
Begin
Write('Введите три числа: ');ReadLn(a,b,c);
if b<0 then Write(a,b)<br>else Write(a,'+',b);
if c<0 then Write(c,' = ',a+b+c)<br>else Write('+',c,' = ',a+b+c);

WriteLn;
if b<0 then Write(a,'*(',b,')')<br>else Write(a,'*',b);
if c<0 then Write('*(',c,') = ',a*b*c)<br>else Write('*',c,' = ',a*b*c);

WriteLn;
if b<0 then Write('(',a,b)<br>else Write('(',a,'+',b);
if c<0 then Write(c,')/3 = ',(a+b+c)/3)<br>else Write('+',c,')/3 = ',(a+b+c)/3);
End.