C клавиатуры вводятся 30 чисел. Найти произведение положительных чисел.

Question

Информатика

Денница

29 января, 02:14

C клавиатуры вводятся 30 чисел. Найти произведение положительных чисел.

+5

Ответы (1)

Знаете ответ?

Желика · Answer 1

Var a, b, c:integer;

begin

writeln ('введите 30 чисел') ;

readln (a) ;

b:=1;

c:=1;

while b30 do begin

if a > 0 then c:=a*c;

readln (a) ;

b:=b+1;

end; writeln ('ответ ', c) ;

end.