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