Помогите пожалуйста по информатике. N:=0 S:=0 While s<=47 do Begin N:=n+1 S:=s+2 End...

Question

Помогите пожалуйста по информатике.
N:=0
S:=0
While s<=47 do<br> Begin
N:=n+1
S:=s+2
End
Write(n)

Answer 1

Var N,S: integer;
begin
N:=0;
S:=0;
while s<=47 do<br>begin
N:=n+1;
S:=s+2;
end;
write(N);
end.
Ответ: 24