1var s, n: integer; begin s : = 25; n : = 0; while - вопрос №12504001389195 от arabenko 15.06.2022 10:29

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.

arabenko · 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.