Вопрос по информатике:
СРОЧНО пожалуйста.Найти все двузначные числа, сумма квадратов цифр которых кратна M.
Пожаловаться
- 09.09.2017 20:53
- Информатика
- remove_red_eye 15977
- thumb_up 16
Ответы и объяснения 1
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
begin
var m:=ReadInteger('M=');
for var i10:=1 to 9 do
for var i1:=0 to 9 do
if (i10*i10+i1*i1) mod m=0 then Write(i10,i1,' ');
Writeln(NewLine,'Работа завершена')
end.
Пример
M= 8
22 26 40 44 48 62 66 80 84 88
Работа завершена
begin
var m:=ReadInteger('M=');
for var i10:=1 to 9 do
for var i1:=0 to 9 do
if (i10*i10+i1*i1) mod m=0 then Write(i10,i1,' ');
Writeln(NewLine,'Работа завершена')
end.
Пример
M= 8
22 26 40 44 48 62 66 80 84 88
Работа завершена
Пожаловаться
- 01.01.1970 00:00
- thumb_up 39
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы