Помогите пожалуйста,очень срочно! Ввести три числа,вывести на экран их сумму,произведение и среднее арифметическое. (В паскале,по такому типу: Var Begin WriteLn End) Буду очень благодарна!
Помогите пожалуйста,очень срочно!
Ввести три числа,вывести на экран их сумму,произведение и среднее арифметическое.
(В паскале,по такому типу:
Var
Begin
WriteLn
End)
Буду очень благодарна!
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы