Question

срочно помогите пожалуйста дам 35 баллов!!! 1) Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=0; k:=1; while k < 11 do begin s:=s+k; k:=k+1; end; write(s); end. 2) Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=0; k:=0; while k < 30 do begin k:=k+3; s:=s+k; end; write(s); end. 3) Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=3; k:=1; while k < 25 do begin s:=s+k; k:=k+2; end; write(s); end. 4) Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=2; k:=2; while s < 50 do begin s:=s+k; k:=k+2; end; write(k); end. 5) Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=0; k:=0; while s < 100 do begin s:=s+k; k:=k+4; end; write(k); end. 6) Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=0; k:=1; while s < 66 do begin k:=k+3; s:=s+k; end; write(k); end. 7) Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=5; k:=0; while k < 15 do begin k:=k+2; s:=s+k; end; write(s); end. 8) Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=0; k:=0; while k < 12 do begin s:=s+2*k; k:=k+3; end; write(s); end. 9) Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=0; k:=0; while s < 80 do begin s:=s+2*k; k:=k+4; end; write(s); end. 10) Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=1; k:=0; while k < 13 do begin s:=s+2*k; k:=k+4; end; write(s+k); end.

Answer 1

1.S=55;
2.S=165;
3.S=147;
4.S=16;
5.S=32;
6.S=16;
7.S=77;
8.S=36;
9.S=80;
10.S=65;