Даю 50 баллов! Program Primer; var sum, a: real; begin sum:=0; a:=0;...

Question

Даю 50 баллов! Program Primer; var sum, a: real; begin sum:=0; a:=0; repeat sum:=sum+a; write('Введите число'); readln(a); until a < 0; writeln (sum); end. Какое число получится, если ввести ряд чисел 6, 2, 1, 7, -11?

Answer 1

В коде написано что есть переменная sum которая равна 0 и переменная а которая тоже равна 0

Выводится текст "Введите число"

Вы можете ввести любое число, но тут предположительно идёт ряд чисел 6, 2, 1, 7, -11

После того как вы ввели число идёт проверка больше 0 или меньше

Если число больше 0 то предыдущее число прибавляется к тому что вы ввели, и так будет до тех пор пока число не будет меньше 0.

Соответственно 6+2+1+7 и после ввода -11 получится число 16.