цикл_"for"

[Corpsell]

Мне была поставлена задача создать прогу на паскале которая бы выводила на экран все составные числа из диапазона [4,n]
вот что у мя вышло:

var
k,i,n:integer;
begin
writeln('Введите n');
readln(n);
for i:=4 to n do
for k:=2 to (i-1) do
if i mod k=0 then
write(' ',i);
readln;
end.

проблема в том что у мя в ответе цифры повторяются... подскажите, что мне сделать чтобы каждое составное число выводилось один раз. Заранее спасибо!

[Lemo]

Для начала - что такое составные числа? + приведите пример результата программы(что на входе + что на выходе).

[Corpsell]

на входе n=10, а на выходе 4, 6, 6, 8, 8, 9, 10, 10

[Lemo]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
k,i,n:integer;
begin
writeln('Input n');
readln(n);
writeln('result : ');
for i:=4 to n do
begin
if (i mod 2=0) or
   (i mod 3=0) then
write(' ',i);
end;
readln;
end.

[Corpsell]

спасибо за помощь!

[pray_driver]

Lemo
уважаемый, Вы получили числа, которые делятся на 2 и на 3:

if (i mod 2=0) or
   (i mod 3=0) then
write(' ',i);

В промежутке от 4 до 10 это верно, а если от 4 до 100:

где 25? где 35? 49? нету, а потому что чисел, делящихся на 5 и на 7 этим алгоритмом не искали

[pray_driver]

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

Мне была поставлена задача создать прогу на паскале которая бы выводила на экран все составные числа из диапазона [4,n]
вот что у мя вышло:

var
k,i,n:integer;
begin
writeln('Введите n');
readln(n);
for i:=4 to n do
for k:=2 to (i-1) do
if i mod k=0 then
write(' ',i);
readln;
end.

проблема в том что у мя в ответе цифры повторяются... подскажите, что мне сделать чтобы каждое составное число выводилось один раз. Заранее спасибо!

Вот смотри
например i = 10, k изменяется от 2 до 9
когда 10 делится на k ты выводишь 10.
10 делится на 2 и 5. соответственно и выведено будет 2 раза. Надо усовершенствовать алгоритм, чтобы при нахождении делителя дальше уже не проверять это число

[pray_driver]

Corpsell, я бы предложил на основании твоего алгоритма вот этот, хоть тоже не сказать что оптимальный, наверное

program Project2;

uses
  SysUtils;
var
k,i,n:integer;
nashel : boolean;

begin
writeln('Введите n');
readln(n);
for i:=4 to n do
begin
    nashel := false;
    k := 2;
    While (not nashel) and (k <= i-1) do
    begin
        if i mod k = 0 then nashel := true;
        k := k +1;
    end;
    if nashel then write(' ',i);
end;
readln;
end.

[Corpsell]

благодарю за помощь!)

[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(i)) do
      if (i mod j = 0) then
        t := true;
    if t then write(' ', i);
  end;
  readkey
end.