ответьте на во сколько шагов сделает следующий цикл?
k :=1;
while k<7 do begin
k:=k*2;
end;

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