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

1

Ответы и объяснения

2014-02-16T15:17:27+04:00
Var  a,p : integer;
begin
p := 1;
 read(a);
repeat 
P:= p*a;
read(a)
until (a < -10) or (a > 10);
Write(p);
end.
проблема в первом считывание. если а сразу не вписывается, то программа работает со сбоем.
можно попробовать поставить if и goto.
Комментарий удален
Комментарий удален
Комментарий удален