DIM k, s AS INTEGER s = 0 k = 0 WHILE s < 1024 s = s + 10 k = k + 1 WEND PRINT k

Var k, s : integer; BEGIN s := 0; k := 0; while s<1024 do begin s := s+10; k := k+1; end; write(k); END.

{ int k, s; s = 0; k = 0; while (s<1024) { s = s+10; k = k+1; } printf("%d", k); }

нач цел k, s s := 0 k := 0 нц пока s < 1024 s := s+10 k := k+1 кц вывод k кон