FORUM
Pagina de start a forumului eggzit.3xforum.ro
|
Nou pe simpatie:
Kalifa din Ialomita
 | Femeie
24 ani
Ialomita
cauta Barbat
24 - 65 ani |
|
|
FORUMReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
 eggzitUsername: 6R9PKQUKKU
Postari: 215
|
|
{fisierul numar.in care contine pe prima linie
un numar n si pe linia urm cele n numere, de cel mult
cinci cifre fiecare
un prg sa citeasca din fisierul numar.in...crescator}
program treisprezece;
var n,i:longint;
a:array[1..100] of longint;
procedure citire;
var f:text;
begin
assign(f,'numar.in');
reset(f); readln(f,n);
for i:=1 to n do read(f,a[i]);
close(f);
end;
function verc(n:longint):boolean;
var c:integer; ok:boolean;
begin
ok:=true;
c:=n mod 10; n:=n div 10;
while (n>0) and ok do begin
if n mod 10 >= c then ok:=false;
c:=n mod 10; n:=n div 10;
end;
verc:=ok; end;
function verd(n:longint):boolean;
var c:integer; ok:boolean;
begin
ok:=true;
c:=n mod 10; n:=n div 10;
while (n>0) and ok do begin
if n mod 10 <= c then ok:=false;
c:=n mod 10; n:=n div 10;
end;
verd:=ok; end;
begin
citire;
for i:=1 to n do
if (verc(a[i])) or (verd(a[i])) then write(a[i],' ');
readln;end.
|
|
| |
|
