oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
 Trimis: 11.04.2008 15:48 Titlul subiectului: Problema 03 |
|
|
| Cod: |
{3. se citeste de la tastatura un numar n, 0<n<1000000. sa se afiseze pe
ecran, daca exista, un numar natural care este strict mai mare decat n si
care are aceleasi cifre ca si n. daca se gaseste un astfel de numar afisati
mesajul "exista", altfel se va afisa mesajul "nu exista".}
program ex3;
var n,i:integer;
ok:boolean;
begin
write('n: '); readln(n); ok:=true;
while (n>10) and ok do begin
if (n mod 100) div 10<n mod 10 then ok:=false;
n:=n div 10;
end;
if ok then write('nu exista')
else write('exista');
end.
|
|
|
