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

Question

Информатика

Арсюша

11 ноября, 10:47

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

+5

Ответы (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

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