СРОЧНО пожалуйста.Найти все двузначные числа, сумма квадратов цифр которых кратна M.

СРОЧНО пожалуйста.Найти все двузначные числа, сумма квадратов цифр которых кратна M.
Гость
Ответ(ы) на вопрос:
Гость
// 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 Работа завершена
Не нашли ответ?
Ответить на вопрос
Похожие вопросы