Pascal2007.MyForum.ro

LoveKey · Trimis: 02/03/2007 11:15 Titlul subiectului: Atestat Pascal

1. {Din fisierul date.in de pe întâia linie se citeste un numar natural n,
iar de pe urmatoarele linii, n numere naturale. Sa se scrie in fisierul
date.out, numerele care sunt palindroame, pe acelasi rand, despartite
prin cate un spatiu. Un numar este palindrom daca este egal cu rasturnatul
sau.}

program fispalindrom;
Var f,g:text;
a,b,i:integer;
function palindrom(p:byte):boolean;
Var s,r:byte; t:boolean;
begin
t:=false;
s:=0;
r:=p;
while r<>0 do begin
s:=s*10+r mod 10;
r:=r div 10;
end;
if s=p then t:=true;
palindrom:=t;
end;
Begin
assign(f,'date.in');reset(f);
assign(g,'date.out'); rewrite(g);
readln(f,a);
for i:=1 to a do begin
readln(f,b);
if palindrom(b) then write(g,b,' '); end;
close(g);
close(f);
end.
_________________
Orice e posibil prin vointa!

leobush · Trimis: 11/03/2007 22:13 Titlul subiectului: Probl. Nr.2

{2. Din fisierul date.in de pe întâia linie se citeste un numar natural n,
iar de pe urmatoarele linii, n numere naturale. Sa se scrie in fisierul
date.out,numerele care sunt perfecte, pe acelasi rand, despartite prin
cate un spatiu.
Un numar este perfect daca este egal su suma divizorilor sai mai mici
decat el.
Exemplu:
date.in date.out
6 6 28
1
12
6
100
28
155}

var n,a,i:integer;f,g:text;

function perfect(n:integer):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to n div 2 do
if n mod i=0 then s:=s+i;
perfect:=s;
end;

begin
assign(f,'date.in');reset(f);
assign(g,'date.out');rewrite(g);
readln(f,n);

for i:=1 to n do begin
readln(a);
if perfect(a)=a then write (g,a,' ');
end;

close(g);
end.

leobush · Trimis: 11/03/2007 22:18 Titlul subiectului: ATESTAT PASCAL

3. {Din fisierul date.in de pe întâia linie se citeste un numar normal n,
iar de pe urmatoarele linii, n numere naturale. Sa se scrie in fisierul
date.out, numerele care sunt prime, pe acelasi rand, despartite prin
cate un spatiu.}

var f,g:text;n,i,j,a:integer;
function prim(n:integer):boolean;
var i:integer;
begin
prim:=n>1;
for i:=2 to n-1 do
if n mod i=0 then prim:=false;
end;

begin
assign(f,'date.in');reset(f);
assign(g,'date.out');rewrite(g);
readln(f,n);
for i:=1 to n do begin
readln(f,a);
if prim(a)then write(g,a,' ');
end;
close(f);
close(g);
end.

vvflorin · Trimis: 23/04/2007 12:02 Titlul subiectului:

pluralul de la palindrom e... palindrome, nu palindroame :innocent:

_________________
www.atestateinfo.page.tl