цикл_"for"

[Corpsell]

благодарю!)

[pray_driver]

Сообщение от ROMA2PVT

uses
  crt;

var
  i, n, j: integer;
  t: boolean;

begin
  ClrScr;
  write('Input n:=');
  readln(n);
  writeln('result : ');
  for i := 4 to n do
  begin
    t := false;
    for j := 2 to round(sqrt(n)) do
      if (i mod j = 0) then
        t := true;
    if t then write(' ', i);
  end;
  readkey
end.

пусть n = 100. sqrt(n)=10
при j = 2 получаем 100 mod 2 = 0, но цикл пойдет дальше. Можно улучшить, обрубив цикл j сразу

[Corpsell]

всем огромное спасибо за помощь!!!