Question

Scrieti un altgoritm care citeste un nr natural/doua numere nat n si m si calculeaza ce se afiseaza pe ecran:

a)produsul cifrelor numarului m;
b) cate cifre are nr n;
c)mesaje-verificare ca n si m au aceeasi suma a cifrelor.
Cat mai rpd va rog frumos !

Answer 1

Răspuns:

var a,b,c,n,k,g: integer;

begin

c:= 1;

write('m='); readln(a);

write('n='); readln(n);

while( n<>0 ) do

begin

b:= b + 1;

g:= g + (n mod 10);

n:= n div 10;

end;

writeln('Numarul n are' ,b, ' cifre');

while (a <> 0) do

begin

c:= c * ( a mod 10);

k:= b + ( a mod 10);

a:= a div 10;

end;

writeln('Produsul nr. m este ' ,c);

if k = g then

writeln('Suma nr. m si n sunt egale)

else

writeln('Suma nr. m si n nu sunt egale);

end.