Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 05.12.2013
Сообщений: 20
1

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

22.06.2014, 07:33. Просмотров 1324. Ответов 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
Модератор
63219 / 46976 / 32377
Регистрация: 18.05.2008
Сообщений: 113,854
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® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.