Составить программу.

Введите 7 чисел. Найти сумму больше 3 и произведение меньше 3.

Question

Информатика

Ангеля

22 ноября, 08:55

Составить программу.

Введите 7 чисел. Найти сумму больше 3 и произведение меньше 3.

+1

Ответы (1)

Знаете ответ на вопрос?

Арса · Answer 1

Program semchisel;

Var a, i, sum, proiz:integer;

Begin

proiz:=1; sum:=0;

for i:=1 to 7 do

begin

read (a) ;

if (a<3) then proiz:=proiz*a;

if (a>3) then sum:=sum+a;

end;

Writeln ('proiz=', proiz, ' ', 'sum=', sum) ;

Readln;

End.

Составить программу.Введите 7 чисел. Найти сумму больше 3 и произведение меньше 3.

Составить программу.

Введите 7 чисел. Найти сумму больше 3 и произведение меньше 3.