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:
simpacurly69
 | Femeie
24 ani
Bucuresti
cauta Barbat
35 - 70 ani |
|
eggzit
Username: 6R9PKQUKKU
 Inregistrat: acum 20 ani
Postari: 215
|
|
{n,m linii si coloane nr nat un prg folosim subprograme se vor determina
si se vor scrie in fisierul palindr.out elemenete palindrom de pe fiecare linie
in care in care nu exista}
program zece;
var f:text;
n,m,i:integer;
a:array[1..100,1..100] of integer;
procedure citire;
var i,j:integer;
begin
write('n='); readln(n);
write('m='); readln(m);
for i:=1 to n do
for j:=1 to m do begin
write('a[',i,',',j,']='); readln(a[i,j]);
end;
end;
function palindr(el:integer):boolean;
var el_i, el_inv:integer;
begin
el_i:=el;el_inv:=0;
while el<>0 do begin
el_inv:=el_inv*10 + el mod 10;
el:=el div 10;
end;
if el_i=el_inv then palindr:=true
else palindr:=false;
end;
procedure afis(i:integer);
var ok:boolean;
j:integer;
begin
ok:=false;
for j:=1 to m do if palindr (a[i,j]) then begin
write(f,a[i,j],' '); ok:=true;
end;
if not ok then write(f,'0');
writeln(f);
end;
begin
citire;
assign(f,'palindr.out');
rewrite(f);
for i:=1 to n do afis(i);
close(f);end.
|
|
| pus acum 18 ani |
|