Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 28.04.2016
Сообщений: 13
1

Найти все числа интервала, сумма цифр каждого из которых при возведении в некоторую степень даст это число

27.06.2016, 21:09. Показов 549. Ответов 3
Метки нет (Все метки)

На заданном числовом промежутке требуется найти все: числа, сумма цифр каждого из которых при возведении в некоторую степень дает это
же самое число, например, 81=92, 4913=173;
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.06.2016, 21:09
Ответы с готовыми решениями:

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

Найти числа, сумма цифр которых в возведении в степень количества цифр совпадает с этим числом
Не считая число 1, число 153 является первым числом, имеющим это свойство: сумма степеней каждого...

Найти все натуральные числа в промежутке от A до B, сумма цифр которых, возведенная в n-ую степень, равна самому числу
Найти все натуральные числа в промежутке от A до B, сумма цифр, которых возвышенная в n-й степени,...

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

3
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
27.06.2016, 21:39 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
29
30
31
var a,b,i,j,s,x,k:integer;
begin
repeat
writeln('Введите диапазон натуральных чмсел 0>a<b');
readln(a,b);
until(a>0)and(b>a);
k:=0;
for i:=a to b do
 begin
  j:=i;
  s:=0;
  while j>0 do
   begin
    s:=s+j mod 10;
    j:=j div 10;
   end;
  if s<>1 then
   begin
    x:=s;
    while x<i do
    x:=x*s;
    if x=i then
     begin
      k:=1;
      writeln(i);
     end;
   end;
 end;
if k=0 then write('Чисел по условию нет');
readln;
end.
0
0 / 0 / 0
Регистрация: 03.06.2018
Сообщений: 4
27.06.2018, 09:37 3
Спасибо за ответ.Можно пояснение к нему ?
0
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
27.06.2018, 10:36 4
Немного поменял код и возникли сомнения.
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
29
30
31
32
33
34
35
36
37
38
39
var a,b,i,j,s,x,k:integer;
begin
//вводим диапазон, например 50..5000
repeat
writeln('Введите диапазон натуральных чисел 0<a<b');
readln(a,b);
until(a>0)and(b>a);
k:=0;//пусть чисел по условию нет
for i:=a to b do //проверяем диапазон
if i<10 then  //однозначные все подходят как числа в 1 степени,
              //если нужны степени большие 1,то ограничить a>9
 begin
  writeln(i);
  k:=1;
 end
else
 begin
  j:=i; //запоминаем число
  s:=0;//сумма цифр пока=0
  while j>0 do //пока число не ноль
   begin
    s:=s+j mod 10; //прибавляем к сумме последнюю цифру
    j:=j div 10;//сокращаем число в 10 раз
   end;
  if s<>1 then //если сумма не 1
   begin
    x:=s;//запомним ее
    while x<i do //пока число меньше исследуемого
    x:=x*s; //умножаем его на сумму, возводим в степень, 1,2,3....
    if x=i then //если получилось исследуемое число или это число=1
     begin
      k:=1; //фиксируем находку
      writeln(i);  //выводим
     end;
   end;
 end;
if k=0 then write('Чисел по условию нет');
readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.06.2018, 10:36

Найти все трехзначные натуральные числа, сумма цифр которых равна В, а само число состоит из разных цифр
using System; using System.Collections.Generic; using System.Linq; using System.Text; ...

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

Найти все трехзначные натуральные числа, сумма цифр которых равна В, а само число состоит из разных цифр
Выполнить задание на C# Найти все трехзначные натуральные числа, сумма цифр которых равна В, а...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.