Var n,s:integer; Begin N:=0; S:=0; While s меньше =35 do begin N:= n+1; S:=s+4 End; Write(n) End. Решите пожалуйста, надо с решением.
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
Не нашли ответ?
Похожие вопросы