Var n,s: integer; begin n: =0; s: =0; while s< =35 do begin n: = n+1; s: =s+4 end; write(n) end. решите , надо с решением.

Пока s<=35 будут выполнятся следующие действия:
N:=n+1;
S:=s+4;

Цикл прекратится после 9 раз
N:=0+1=1;
N:=1+1=2;
...
N:=8+1=9