FORUM
Pagina de start a forumului eggzit.3xforum.ro
|
Lista Forumurilor Pe Tematici
|
FORUM | Reguli | Inregistrare | Login
POZE FORUM
Nu sunteti logat.
|
Nou pe simpatie:
Angi
 | Femeie
25 ani
Bucuresti
cauta Barbat
26 - 52 ani |
|
eggzit
Username: 6R9PKQUKKU
 Inregistrat: acum 20 ani
Postari: 215
|
|
{fisierul numere.in contine un sir s de cel mult un milion de nr naturale
fiecare numar avand cel mult patru cifre}
progra, douazeciunu;
var k,p,nr:integer;
f:text;
function prim(n:integer):boolean;
var i:integer;
begin
prim:=true;
if n<2 then prim:=false
else
for i:=2 to n div 2 do
if n mod i = 0 then prim:=false;
end;
begin
assign(f,'numere.in');
reset(f);
repeat
read(f,nr);
until eof(f) or prim(nr);
k:=1; p:=1;
while not eof(f) do begin
read(f,nr); k:=k+1;
if prim(nr) then p:=k;
end;
write('nr elementelor ramase este: ', p);
readln;end.
|
|
| pus acum 18 ani |
|