Решить задачи по информатике(желательно написать с вычислениями) 1) Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=0; k:=0; while s < 100 do begin s:=s+k; k:=k+4; end; write(k); end. 2) Запишите число, которое будет напечатано в результате выполнения следующей программы: var n, s: integer; begin n := 1; s := 0; while n <= 300 do begin s := s + 30; n := n * 5 end; write(s) end. 3) Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=5; k:=0; while k < 15 do begin k:=k+2; s:=s+k; end; write(s); end. 4) Запишите число, которое будет выведено в результате работы программы: var s, n: integer; begin s := 0; n := 0; while s*s <= 10*s do begin s := s + 1; n := n + 2 end; writeln(n) end. 5) Определите, при каком наименьшем введенном значении переменной s программа выведет число 15. var s, n: integer; begin readln(s); n := 5; while s < 110 do begin n := n + 1; s := s + n; end; writeln(n) end.