FORUM
Pagina de start a forumului eggzit.3xforum.ro
|
Nou pe simpatie:
iulia2006
 | Femeie
24 ani
Bucuresti
cauta Barbat
25 - 49 ani |
|
|
FORUMReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
 eggzitUsername: 6R9PKQUKKU
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.
|
|
| |
|
