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

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

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

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

Задать свой вопрос
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.
Esenija Bodjanskaja
как то так=)
Чавкин Валерий
Все правильно, только ср.ар. f:=(a+b+c)/3; ну, либо f:=d/3;
Колян Микишенко
ну да, тупанул чуть
Желикова Ева
Спасибо Для вас громадное :)
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт