ПОЖАЛУЙСТА Среди двухзначных чисел (от 10 до 99) найти те, сумма квадратов цифр которых...

Question

ПОЖАЛУЙСТА
Среди двухзначных чисел (от 10 до 99) найти те, сумма квадратов цифр которых делится на 13.

Answer 1

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
function IsGood(n:integer):=
  (sqr(n div 10)+sqr(n mod 10)) mod 13=0;

begin
  10.To(99).Where(n->IsGood(n)).Println  
end.

Тестовое решение
15 18 23 32 46 47 51 64 69 74 79 81 96 97