Подсчитать произведение целых чисел, введенных с клавиатуры. Произведение подсчитывается до тех пор, пока вводятся числа от -10 до +10
Через While решать!!!!
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
