24.10.2009, 16:56
|
|
Reservists Of Antichat - Level 6
Регистрация: 23.05.2008
Сообщений: 756
С нами:
9456866
Репутация:
979
|
|
for i:=1 to 50000 do begin
s:=0;
for ii:=2 to i do begin
if i mod ii=0 then s:=s+1;
end;
if s>0 then writeln(i);
end;end.
Как то так,паскаль не помню.
|
|
|