Задание

Определите значение переменной s при x= [5, 20, 24, 0] после выполнения программы.

var s, x, i: integer;

begin

i:=0;

s:= 0;

repeat

read (x);

s:=s+x;

i:=i+1;

until x=0;

writeln ('s=', s);

end.

x s i x=0 (да/нет)

- -

5

20

24

0

Сколько раз выполнялось тело цикла? - -