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

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку