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

Question

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

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

Гость

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

Accepted Answer

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