Question

Sa se afiseze toate numerele naturale care au proprietatea ca sunt egalu cu patratul sumei cifrelor lor (Indicatie. Se demonstreaza, matematic, ca un astfel de numar nu poate avea decat maxim 4 cifre. ex> 81=>8+1=9; 81=9x9). Algoritmul sa fie doar in pascal va rog nu si il alte limbaje de programare!

Answer 1

program PatratulSumaCif;

var num, cif, sumacif, m: integer;

begin

  writeln('numerele pt care patratul sumei cifrelor este egal cu numarul:');

  for num:=1 to 9999 do

    begin

      m:=num;

      sumacif:=0;

      while m > 0 do

        begin

          cif:= m mod 10;

          sumacif:=sumacif + cif;

          m:= m div 10;

        end;

       if sqr(sumacif)=num then write(num, '  ');

     end;

end.