Вычислить произведение целых чисел введенных с клавиатуры . Произведение подсчитывается до тех пор , пока вводятся числа в интервале от -10 до +10 через repeat......until
Var a,p : integer; begin p := 1; read(a); repeat P:= p*a; read(a) until (a < -10) or (a > 10); Write(p); end.
bpvtybk htitybt
изменил решение
проблема в первом считывание. если а сразу не вписывается, то программа работает со сбоем.
можно попробовать поставить if и goto.