Question

дано натуральное число M найти все двух и трех значные числа,сумма квадратов цифр которых равна M​

Answer 1

Ответ:

К примеру если взять числа 2 и 3, то мы получим исходя из кода:

30 33 36 39 60 63 66 69 90 93 96 99, тем самым каждый раз число будет увеличиваться на 3, а после трех раз будет добавлено по 30.

Объяснение:

Если использовать данный код, то можно будет узнать нужные тебе числа:

uses crt;

var

  n,i,m:longint;

  x:longint;

function scc(c:longint):integer;

var

  s:integer;

begin

    s:=0;

    while c<>0 do

          begin

               s:=s+sqr((c mod 10));

               c:=c div 10;

          end;

    scc:=s;

end;

begin

   clrscr;

 readln(n,m);

 x:=1;

 for i:=2 to n do

     x:=x*10;

 for i:=x to x*10-1 do

    if scc(i) mod m = 0 then

       write(i,' ');

 writeln;

    readln;

end.

Answer 2

Может он и разберется, а я - не смог. Т.е. после пары минут рассмотрения кода понял, что это совсем не то, что нужно. И бросил.

Answer 3

begin

   var M := ReadInteger('M =');

   for var i := 10 to 999 do

   begin

       var (n, s) := (i, 0);

       while n > 0 do

     begin

         s += Sqr(n mod 10);

         n := n div 10

     end;

     if s = M then

         Print(i)

   end

end.