Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Упростить алгоритм
Автор: Mikola 7.06.2006 23:10
Кто-нибудь поможет упрстить алгоритм вывода всех простых исел от 1 до N...(преподу не понравилось, как тут решено, она говорит, надо как-то через корень N 
)
Код
uses crt;
var i,n:integer;
f:boolean;
j:integer;
begin
clrscr;
f:=true;
write('vvedite chislo n = ');
readln (n);
for i:=1 to n do
begin
f:=true;
for j:=2 to i-1 do
if i mod j = 0
then f:=false;
if f
then write (i,' ');
end;
readln
end.
var i,n:integer;
f:boolean;
j:integer;
begin
clrscr;
f:=true;
write('vvedite chislo n = ');
readln (n);
for i:=1 to n do
begin
f:=true;
for j:=2 to i-1 do
if i mod j = 0
then f:=false;
if f
then write (i,' ');
end;
readln
end.
Автор: volvo 7.06.2006 23:27
http://forum.pascal.net.ru/index.php?s=&showtopic=3916&view=findpost&p=32236
Смотри, как там реализовано, и исправляй свою программу...