1var s, n: integer; begin s : = 25; n : = 0; while - вопрос №3889701250400 от Ilvina124krs 30.04.2021 18:31

Question

Информатика: 1var s, n: integer; begin s : = 25; n : = 0; while 400 s*s do begin s : = s - 1; n : = n + 3 end; writeln(n); end.

Ilvina124krs · Answer

В цикле указано, что пока S не станет меньше 400, будет отниматься 1 от S и прибавляться 3 к N, в итоге будет выведено 15....

1var s, n: integer; begin s : = 25; n : = 0; while 400 < s*s do begin s : = s - 1; n : = n + 3 end; writeln(n); end.