Question

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

Answer 1

Var  a,p : integer;
begin
p := 1;
 read(a);
repeat 
P:= p*a;
read(a)
until (a < -10) or (a > 10);
Write(p);
end.

Answer 2

проблема в первом считывание. если а сразу не вписывается, то программа работает со сбоем.

Answer 3

можно попробовать поставить if и goto.

Answer 4

Var
a,p : integer;
begin
p := 1;
a := 1;
read(a);
if (a < -10) or (a > 10) then
begin
write('0');
exit;
end;
repeat
P:= p*a;
read(a)
until (a < -10) or (a > 10);
Write(p);
end.

Answer 5

получилось без goto

Answer 6

благодарю