Citat:
bokisan:
Sigurno je glupo, ali imam jedan problem u pascal-u. Htel da mi zakljuci 4 iz informatike, jer nisam znao da uradim jedan zadatak sa FOR naredbom. Mozda je glupo, ali bi mi znacilo ako bi neko znao da mi pomogne... 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
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.