Подсчитать произведение целых чисел, введенных с клавиатуры. Произведение подсчитывается до тех пор, пока вводятся числа от -10 до +10 Через While решать!!!!

Question

Подсчитать произведение целых чисел, введенных с клавиатуры. Произведение подсчитывается до тех пор, пока вводятся числа от -10 до +10 Через While решать!!!!

Гость

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

Accepted Answer

var pr, x:integer; begin pr := 1; write('Введите число '); readln(x); while (x<= 10) and (x >= -10) do begin Pr := pr * x; write('Введите число '); readln(x); end; writeln('Произведение чисел = ', pr); end.