Решить по программе Паскаль.Найти все двузначные числа, сумма квадратов цифр которых...

Question

Решить по программе Паскаль.Найти все двузначные числа, сумма квадратов цифр которых кратна M.

Answer 1

Var
  i10,i1,m:integer;
begin
  Write('m='); Read(m);
  for i10:=1 to 9 do
    for i1:=0 to 9 do
      if (i10*i10+i1*i1) mod m=0 then Write(i10,i1,' ');
  Writeln(#13#10,'Работа завершена')
end.

Пример
m=10
13 17 24 26 31 39 42 48 55 62 68 71 79 84 86 93 97
Работа завершена