Eratostenovo sito: razlika između inačica
Izbrisani sadržaj Dodani sadržaj
Nema sažetka uređivanja |
Nema sažetka uređivanja |
||
Redak 33:
Console.ReadLine()
End Sub
U DELPHIJU:
program Izbacivanje;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a:array[1..150] of integer;
ok:array[1..150] of boolean;
i,n,k:integer;
begin
writeln('Unesite n ');
readln(n);
for i:=2 to n do
begin
a[i]:=i;
ok[a[i]]:=true;
end;
i:=2;
while (i*i<=n) do
begin
k:=i;
while (k<n) do
begin
k:=k+a[i];
ok[a[k]]:=false;
end;
i:=i+1;
end;
for i:=2 to n do
If ok[a[i]]=true then
writeln(a[i]);
readln;
end.
| |||