FORUM
Pagina de start a forumului eggzit.3xforum.ro
|
Nou pe simpatie:
andreutza43 din Bacau
 | Femeie
25 ani
Bacau
cauta Barbat
30 - 80 ani |
|
|
FORUMReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
 eggzitUsername: 6R9PKQUKKU
Postari: 215
|
|
{se da un nr nat n sa se afiseze cifrele distincte
folosite in scrierea numarului in ordine cresca}
program doiopt;
var n,m:longint;c:byte;
ok:boolean;
begin
write('n=');readln(n);
for c:=0 to 9 do
begin
m:=n;
ok:=false;
while m>0 do
begin
if c=m mod 10 then ok:=true;
m:=m div 10;
end;
if ok then write(c, ' ');
end;
readln;
end.
|
|
| |
|
