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