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:
just_iulia din Giurgiu
Femeie
25 ani
Giurgiu
cauta Barbat
26 - 48 ani
FORUM / Forum Nou / 28  
Autor
Mesaj Pagini: 1
eggzit
Username: 6R9PKQUKKU

Inregistrat: acum 20 ani
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.
pus acum 18 ani
   
Pagini: 1  

Mergi la