0 / 0 / 0
Регистрация: 05.12.2013
Сообщений: 20
1

Даны натуральные числа n и m. Определить, является ли сумма квадратов цифр числа n кратной числу m

22.06.2014, 07:33. Показов 1698. Ответов 2
Метки нет (Все метки)

Помогите очень долго голову ломал, запутался...
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.06.2014, 07:33
Ответы с готовыми решениями:

Циклы. Определить является ли сумма максимальной и минимальной цифр кратной числу a.
Дано натуральное число.Определить является ли сумма его максимальной и минимальной цифр кратной...

Процедуры и функции: Найти все натуральные числа,от 1 до n, сумма квадратов цифр которых равна самому числу
Найти все натуральные числа,от 1 до n, сумма квадратов цифр которых равна самому числу

Найти все натуральные числа, не превосходящие 600, у которых сумма цифр является делителем самого числа
Найти все натуральные числа, не превосходящие 600, у которых сумма цифр является делителем самого...

Даны 3 числа. Для каждого из этих чисел, найти сумму цифр числа и определить у кокого числа сумма больше
Даны 3 числа. Для каждого из этих чисел, найти сумму цифр числа и определить у кокого числа сумма...

2
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
22.06.2014, 07:43 2
Лучший ответ Сообщение было отмечено Таатта как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var n,n1,m,s:integer;
begin
repeat
writeln('Введите 2 натуральных числа');
readln(n,m);
until(n>0)and(m>0);
n1:=n;
s:=0;
while n>0 do
 begin
  s:=s+sqr(n mod 10);
  n:=n div 10;
 end;
writeln('Сумма квадратов цифр числа ',n1,'=',s);
if s mod m=0 then write('Она кратна числу ',m)
else write('Она не кратна числу ',m);
readln
end.
1
0 / 0 / 0
Регистрация: 05.12.2013
Сообщений: 20
22.06.2014, 09:04  [ТС] 3
Спасибо!!!Сейчас думаю как я не додумался до этого
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.06.2014, 09:04
Помогаю со студенческими работами здесь

Даны натуральные числа n, m. Найти все натуральные числа меньшие n, квадрат суммы цифр которых равен m
Даны натуральные числа n, m. Найти все натуральные числа меньшие n, квадрат суммы цифр которых...

Выведите на печать все натуральные числа, меньшие N, сумма квадратов цифр которых кратна 7
Выведите на печать все натуральные числа, меньшие N, сумма квадратов цифр которых кратна 7

Найти все двузначные числа, сумма квадратов цифр которых кратна числу M
вот:-[ Найти все двузначные числа, сумма квадратов цифр которых кратна числу M, введенному...

Определить все двузначные числа, сумма квадратов цифр которых кратна числу 15
Определить все двузначные числа, сумма квадратов цифр которых кратна числу 15. ЧЕРЕЗ REPEAT


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru