Delphi. Какое значение получит k?
var i, j, k: byte;
i:=1; k:=0;
while i<3 do begin
inc(i);
for j:=1 to i do inc(k);
end;

elizabeth0vasillenko    1   21.05.2020 16:53    3