Var n,s:integer; Begin N:=0; S:=0; While s<=35 do begin N:= n+1; S:=s+4 End; Write(n) ...

Question

Var n,s:integer;
Begin
N:=0;
S:=0;
While s<=35 do begin <br> N:= n+1;
S:=s+4
End;
Write(n)
End.
Решите пожалуйста, надо с решением.

Answer 1

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

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