Question

Определите значение переменной S после выполнения следующих операторов:

S:=0; k:=6; While k>3 do k:=k - 1; S:=S + k;

Answer 1

program kl;var s,k: integer;begin   S:=0; k:=6; While k>3 do k:=k - 1; S:=S + k; write (s);
end.

Ответ: 3.