Накопить произведение введённых с клавиатуры чисел до тех пор пока значение произведения не превысят P. Вывести полученное произведение на экран.

Question

Информатика

Абльтар

24 июня, 03:18

Накопить произведение введённых с клавиатуры чисел до тех пор пока значение произведения не превысят P. Вывести полученное произведение на экран.

+2

Ответы (1)

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

Варвапа · Answer 1

Var a, p, p1:Integer;

begin Write ('Введите число, которое должно превысить произведение чисел (p) : ') ;

ReadLn (p) ;

p1:=1;

while p1<=p do

begin

Write ('Введите число: ') ;

ReadLn (a) ;

p1:=p1*a

end;

WriteLn ('Произведение введенных чисел: ', p1)

end.