Тема вопроса: нет. Определить результат рабо

Сложность вопроса: 1 (из 10)

<question>22

Определить результат работы программы:

s:=0; a:=1; b:=2;

for i:=1 to 3 do begin

a:=a+i; b:=b*i; s:=s+a+b; end: write(s);

31

21

18

4

Тема вопроса: нет

Сложность вопроса: 1 (из 10)

<question>23

Сколько раз сработает цикл:

x:=1; while x<5 do x:=x+1;

4

5

3

2