Ответы и объяснения

2013-03-11T12:20:03+04:00

Блок-схема в doc-файле. В цикле от 1 до 4 вводим числа, находим произведение и сумму, выводим на экран. 

2013-03-11T15:57:39+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

{Найти сумму и произведение 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.