Сколько раз будет выполняться тело цикла? var k,I :integer;
begin
k:=0; for I:=1 to k+3 do k:=k+I;
end;

ЛизкаПодлизка111    3   12.04.2021 12:29    2