Помогите пожалуйста,очень срочно!
5-9 класс
|
Ввести три числа,вывести на экран их сумму,произведение и среднее арифметическое.
(В паскале,по такому типу:
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.
Другие вопросы из категории
Читайте также
Поменять местами первый элемент масива и максимальный.
Заранее Спасибо) Помогите пожалуйста) Очень срочно!!)
var a: array [1..20] of integer;
p>
?
ПОМОГИТЕ ПОЖАЛУЙСТА,ОЧЕНЬ СРОЧНО НАДО...
Что будет нарисовано после выполнения Чертежником алгоритма:
использовать чертежник
Алг
Нач
Поднять перо
Смест. в точку (2,4)
Опустить перо
Смест. на вектор (-1,0)
Смест. на вектор (3,3)
Смест. на вектор (-5,0)
Смест. на вектор (0,-3)
Смест. на вектор (4,0)
Смест. на вектор (0,3)
Кон