Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Inqu1sItor
0 / 0 / 0
Регистрация: 08.06.2012
Сообщений: 8
1

Определить, равно ли заданное четырехзначное число кубу суммы своих цифр

08.06.2012, 21:08. Просмотров 951. Ответов 1
Метки нет (Все метки)

4)Определить, равно ли заданное 4значное число кубу суммы цифр из которых оно состоит
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.06.2012, 21:08
Ответы с готовыми решениями:

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

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

Определить больше ли число суммы своих цифр
1)Если целое число m делится нацело на целое число n, то вывести на экран...

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

Определить, равно ли число n сумме k-x степеней своих цифр (блок-схема)
Для заданных натуральных n и k определить, равно ли число n сумме k-x степеней...

1
Das Gespenst
Лучи добра
172 / 170 / 191
Регистрация: 08.06.2012
Сообщений: 292
09.06.2012, 02:35 2
Лучший ответ Сообщение было отмечено Inqu1sItor как решение

Решение

Четвертая. Должно работать, но мне лень проверять...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program z;
var a,b,b1,c,s:integer;
begin
     writeln('Введите число');
     readln(a);
     b:=a;
     while b<>0 do
          begin
               b1:=b mod 10;
               s:=s+b1;
               b1:=b div 10;
               b:=b1;
          end;
     c:=trunc(exp(3*ln(s)));
     if c=a
        then
            writeln('Да')
     else
         writeln('Нет');
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.06.2012, 02:35

Для заданных натуральных n и k определить, равно ли число n сумме k-x степеней своих цифр
Для заданных натуральных n и k определить, равно ли число n сумме k-x степеней...

Подпрограммы. Найти число, которое равно сумме факториалов своих цифр
Найдите пять троек натуральных чисел (x; y; z), удовлетворяющих условию Б....

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


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

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

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