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