oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
 Trimis: 13.04.2008 14:14 Titlul subiectului: Problema 18 |
|
|
| Cod: |
{18. fisierul text numere.in contine pe prima linie un numar normal n
(0<=n<=5000), iar pe a doua linie n numere normale de cel mult 9 cifre fiecare,
separate prin cate un spatiu. sa se scrie un program care citeste n, apoi cele
n numere naturale din fisierul numere.in si scrie in fisierul numere.out care
sunt palindroame cu exact patru cifre (un numar este palindrom daca este egal
cu inversul sau}
program ex18;
var f,g:text;
n,i:integer;
a:longint;
function pal(x:longint):boolean;
var z,y:longint;
begin
y:=0; z:=x;
while z<>0 do begin
y:=y*10+z mod 10;
z:=z div 10;
end;
if y=x then pal:=true
else pal:=false;
end;
begin
assign(f,'numere.txt'); reset(f);
assign(g,'numereo.txt'); rewrite(g);
readln(f,n);
for i:=1 to n do begin
read(f,a);
if (pal(a)) and (a>999) and (a<10000) then writeln(g,a);
end;
close(f);
close(g);
end.
|
|
|
