Вопрос по информатике:
Решить по программе Паскаль.Найти все двузначные числа, сумма квадратов цифр которых кратна M.
Пожаловаться
- 24.02.2018 16:59
- Информатика
- remove_red_eye 5570
- thumb_up 23
Ответы и объяснения 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
Работа завершена
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
Работа завершена
Пожаловаться
- 25.02.2018 18:26
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы