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

Question

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

Answer 1

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