Помогите пожалуйста,очень срочно! Ввести три числа,вывести ** экран их сумму,произведение...

Question

Помогите пожалуйста,очень срочно!

Ввести три числа,вывести на экран их сумму,произведение и среднее арифметическое.

(В паскале,по такому типу:
Var
Begin
WriteLn
End)
Буду очень благодарна!

Answer 1

Program sum;
Var a,b,c,d,e,f:real;
Begin
Write ('число a='); Read (a);
Write ('число b='); Read (b);
Write ('число c='); Read (c);
d:=a+b+c;
e:=a*b*c;
f:=d/3;
WriteLn ('Сумма чисел=',d);
Writeln ('Произведение чисел=', e);
Writeln ('Среднее арифметическое чисел=', f);
end.

Comments

как то так=)

---

Все верно, только ср.ар. f:=(a+b+c)/3; ну, или f:=d/3;

---

ну да, тупанул чуток

---

Спасибо Вам огромное :)