Question

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

Answer 1

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

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