Var integer begin while. Var k s integer begin s 0 k 1. s = 2 k = 2 while s < 50: s += k k += 2 print(k). var s k integer begin s 0 k 15 repeat. паскаль var k, s: integer; begin s:=0; k:=1; while s < 66 do begin k:=k+3; s:=s+k; end; write(k); end..

Var integer begin while. Var k s integer begin s 0 k 1. s = 2 k = 2 while s < 50: s += k k += 2 print(k). var s k integer begin s 0 k 15 repeat. паскаль var k, s: integer; begin s:=0; k:=1; while s < 66 do begin k:=k+3; s:=s+k; end; write(k); end..
11 / 40