Ispis "četvorocifrenih blizanaca" (prostih brojeva koji se razlikuju za 2)

Zadatak je da se ispisu svi cetvorocifreni blizanci (prosti brojevi koji se razlikuju za 2) i da se izracuna njihov proizvod. Ako mozete da mi napisete ceo zadatak, a ne samo objasnjenje, jer se ja u ovome ne snalazim bas najbolje... HVALA

[Ovu poruku je menjao bokisan dana 16.01.2002 u 08:26 PM GMT]

Dobro zasto
mislim kako imas 4 iz informatike ako ovo ne mozes da resis ???

program xxx;
var x,i:integer;
p:longint;
begin
x:=1000;
p:=1000;
for i:=1 to 4500 do
begin
write(x); {zaboravio sam kako ide formatiranje texta u writeu pa sam stavio samo ovako}
x:=x+2; {ili x:=inc(x,2)}
p:=p*x; {s tim sto ja mislim da je ovo mnogo veliko cak i za longint}
end;
writeln(p);
end.

Nisam bas potpuno siguran da sam shvatio sta se u stvari trazi ali mislim
da gore navedeno resenje nije tacno, jer prog. ne proverava da li je broj prost i njihovu razliku.

Koliko sam ja shvatio program treba da nadje sve cetvorocifrene proste brojeve
cija je razlika = 2. znaci "veci - manji = 2" ( ispravite me ako nije tacno).
primer: 1021 i 1019 ili 1033 i 1031

ne kapiram ono sa proizvodom, jer kao sto je vec receno ovaj proizvod je
prevelik i za longint.

Evo ti sors koji samo ispisuje sve cetvorocifrene blizance pa ti onda dodaj sta jos treba.
--------
var i:integer;

function prost( n:integer ):boolean;
var
i:integer; p:boolean;
begin
i:=3;
p:=n mod 2 <> 0;
while (i<=n div 2) and p do

begin
p:=n mod i <> 0;
inc(i);
end;

prost:=p;
end;


begin
for i:=1002 to 9999 do
If prost(i) then
If prost(i-2) then writeln(i,' ',i-2);
end.

--------
POz

Potpis

www.cikloberza.com --- www.freeclimbing.org.yu --- www.vertikal.org.yu --- www.yuzvuk.com

Prvi zadatak ne radi, a drugi je O.K. Ako mozes malo jos da mi pojednostavis, jer nismo radili ovo while i inc. HVALA

Svi prosti brojevi p se mogu napisati u obliku:
p=3k+1 ili p=3k+2 (p>3), jasno je da prvi od blizanaca ne moze biti 3k+1 jer broj (3k+1)+2 bio deljiv sa tri. Ono sto hocu da kazem da nema potrebe traziti sve proste brojeve pa od njih izdvajati koji ima blizanca vec treba traziti samo proste brojeve oblika p=3k+2.

poz.

inc(i) ti je isto sto i i:=i+1, povecava 'i' za jedan.

while ti je naredba ciklusa sa preduslovom sto znaci
da se ono izmedju begin i end izvrsava sve dok je ispunjen
uslov koji se navodi posle while{u ovom slucaju ((i<=n div 2) and p)}.


ne znam tacno kako da ti pojednostavim jer ne znam sta ste ucili.

Potpis

www.cikloberza.com --- www.freeclimbing.org.yu --- www.vertikal.org.yu --- www.yuzvuk.com

jel moze to nekako sa for?

function prost( n:integer ):boolean;
var
i:integer; p:boolean;
begin
p:=n mod 2 <> 0;
for i:=3 to n div 2 do
if n mod i = 0 then p:=false;
prost:=p;
end;

Potpis

www.cikloberza.com --- www.freeclimbing.org.yu --- www.vertikal.org.yu --- www.yuzvuk.com

A da da
fuck
sorry
nisam video da treba prosti brojevi da se gledaju !!!