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

Question

Информатика

Мира

3 июля, 17:43

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

+3

Ответы (1)

Знаете ответ на вопрос?

Юреня · 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

Работа завершена