Question

Напишите программу на языке Паскаль для задачи:

Найдите и выведите на экран все двузначные числа, сумма квадратов фир которых делится без остатка на 17

Answer 1

===== PascalABC.NET =====

begin

 for var n := 10 to 99 do

 begin

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

   while k > 0 do

   begin

     s += Sqr(k mod 10);

     k := k div 10

   end;

   if s mod 17 = 0 then

     Print(n)

 end

end.