Veangal
5 год назад
СРОЧНО пожалуйста.Найти все двузначные числа, сумма квадратов цифр которых кратна M.
ОТВЕТЫ
Аверьян
Jun 30, 2019
// 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
Работа завершена
56
