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

Найти и вывести все числа в интервале от 1 до N-1, у которых сумма всех цифр совпадает с суммой цифр данного числа.

18.06.2019, 10:48. Показов 11658. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N-1, у которых сумма всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, то вывести слово "нет". Пример. Вводится число N=44. Числа:8,17,26,35
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.06.2019, 10:48
Ответы с готовыми решениями:

Найти и вывести все числа в интервале от 1 до N - 1, у которых сумма всех цифр совпадает с суммой цифр данного числа
Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N - 1, у которых СУММА ВСЕХ...

Числа у которых сумма всех цифр совпадает с суммой цифр данного числа.
Решить с помощью процедуры. Дано натуральное число N. Найти и вывести все числа в интервале от 1...

Сумма всех цифр чисел совпадает с суммой цифр данного числа.
Число n вводится с клавиатуры. Составить программу, выводящую на экран все числа в интервале от 10...

Сумма всех цифр чисел совпадает с суммой цифр данного числа.
Число n вводится с клавиатуры. Составить программу, выводящую на экран все числа в интервале от 10...

1
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
18.06.2019, 11:07 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
function sum_cifr(n:integer):integer;
var m,s:integer;
begin
m:=n;
s:=0;
repeat
s:=s+m mod 10;
m:=m div 10;
until m=0;
sum_cifr:=s
end;
var n,s,i,k:integer;
begin
repeat
write('Введите натуральное число n>1 n=');
readln(n);
until n>1;
s:=sum_cifr(n);
k:=0;
writeln('Числа от 1 до ',n-1,' у которых сумма цифр= равна сумме цифр числа ',n);
for i:=1 to n-1 do
if sum_cifr(i)=s then
 begin
  write(i,' ');
  k:=1;
 end;
if k=0 then write('Таких чисел нет');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.06.2019, 11:07
Помогаю со студенческими работами здесь

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

Найти все четырехзначные числа, у которых сумма всех цифр равна 10
Помогите разобраться буду крайне признателен вам

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

Найти все четырёхзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 27.
Помогите решить ещё одну задачку :) Найти все четырёхзначные числа, у которых сумма крайних цифр...


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

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

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