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