С клавиатуры вводится числа и находится их произведение до тех пор пока произведение чисел не привести 10 000. Посчитайте количество введенных чисел и полученное произведение.

Question

Информатика

Роксана

9 ноября, 23:54

С клавиатуры вводится числа и находится их произведение до тех пор пока произведение чисел не привести 10 000. Посчитайте количество введенных чисел и полученное произведение.

+4

Ответы (1)

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

Белка · Answer 1

Var

a, b, k:longint;

begin

b:=1;

k:=0;

while b<10000 do

begin

read (a) ;

b:=b*a;

k:=k+1;

end;

writeln ('Kol:', k) ;

writeln ('Number:', b) ;

readln

end.