ПОЖАЛУЙСТА Среди двухзначных чисел (от 10 до 99) найти те, сумма квадратов цифр которых делится на 13.
ПОЖАЛУЙСТА
Среди двухзначных чисел (от 10 до 99) найти те, сумма квадратов цифр которых делится на 13.
Гость
Ответ(ы) на вопрос:
Гость// 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
Не нашли ответ?
Похожие вопросы