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

Question

Информатика

Ладимир

20 сентября, 14:44

С клавиатуры вводится числа и находится их произведение до тех пор пока произведение чисел не привести 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.