Вопрос по информатике:
ПОЖАЛУЙСТА
Среди двухзначных чисел (от 10 до 99) найти те, сумма квадратов цифр которых делится на 13.
- 18.05.2018 00:54
- Информатика
- remove_red_eye 17593
- thumb_up 21
Ответы и объяснения 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
- 19.05.2018 02:14
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.