Найти сумму и произведение 4 чисел ведённых с клавиатуры
Найти сумму и произведение 4 чисел ведённых с клавиатуры
Гость
Ответ(ы) на вопрос:
ГостьБлок-схема в doc-файле. В цикле от 1 до 4 вводим числа, находим произведение и сумму, выводим на экран.
Гость{Найти сумму и произведение 4 чисел ведённых с клавиатуры }
var
i, n: integer;
s, p, num: real;
begin
n := 4;
p := 1;
for i := 1 to n do
begin
read(num);
s := s + num;
p := p * num;
end;
writeln(s,' ', p);
end.
Не нашли ответ?
Похожие вопросы