Question

prin pascal va rog cu while sau repeat variabila i
2)fie numărul natural a.sa se scrie programul care determina suma cifrelor acestui număr.​

Answer 1

var a,x:integer;

 i,s:integer;

begin

 writeln('Introduce-ti un numar:');

 readln( a );

 x:=a;

 s:=0;

 while ( x<>0 ) do  

 begin

 s := s + (x mod 10);

 x := x div 10;

 end;

writeln( 'Suma cifrelor numarului ',a,'=', s );

end.