17. Определите значение переменной S после выполнения программы:

Программа:

Program V2;
Var i, S: integer;
Begin
S:=0;
For i:=1 to 4 do
S:=S+sqr(i);
Writeln ('S=', S);
End.

Расчет:

Переменная S инициализируется значением 0.

Цикл выполняется для i от 1 до 4:

• i=1: S = 0 + sqr(1) = 1
• i=2: S = 1 + sqr(2) = 1 + 4 = 5
• i=3: S = 5 + sqr(3) = 5 + 9 = 14
• i=4: S = 14 + sqr(4) = 14 + 16 = 30

После выполнения цикла переменная S будет равна 30.

Ответ: 30