Question

Sa se afiseza toate numerele naturale <= cu n dat care sunt divizibile cu suma cifrelor lor si produsul cifrelor lor, in pseudocod !

1

Answer 1

functia SumCif(intreg num) //functie care calculeaza suma cifrelor pentru numarul num

intreg sc //suma cifrelor

sc←0;

cat timp (num<>0)  executa

 sc←sc+num%10

 num←num/10

sf. cat timp

return sc;  

sf. functia

functia ProCif(intreg num) //functie care calculeaza produsul cifrelor pentru numarul num

intreg pc //produsul cifrelor

pc←1

cat timp (num<>0)

 pc←pc*num%10

 num←num/10;

return pc;

sf. functia

algoritm Divizibil //programul principal

intreg n,i,s,p;

scrie "Numarul  de numere ";

citeste n;

pentru i←1,n

s←SumCif(i)

       p←ProCif(i);

daca (i%s=0) and (i%p=0) atunci

 scrie "Numarul ",i," este divizibil! "

      sf. daca

sf. pentru

sf. algoritm