1var s, n: integer; begin s : = 25; n : = 0; - вопрос №3898721250400 от aishaolzhas 21.04.2021 05:07

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.

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