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

229

497

Посмотреть ответы 2

Ответы на вопрос:

yourbae

Информатика

4,7(5 оценок)

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.