|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.05.2018, 16:45 | #1 |
Пользователь
Регистрация: 05.03.2018
Сообщений: 17
|
Армстронга для n =2; 3; 4.
Натуральное число из n цифр является числом Армстронга, если сумма его цифр,
возведенных в n-ю степень, равна самому числу (153=1+5+3). Получить все числа Армстронга для n =2; 3; 4. 1. Выделение цифр в числе Реализация: readln(number); while number<>0 do begin temp:=number mod 10; {выделение цифры из числа} number:=number div 10; {уменьшение числа на один разряд} должно быть три подпрограммы: 1. находит степень цифры числа 2. находит количество цифр в числе 3. находит сумму цифр числа Я сделала, но не выполняется 2-й пункт program Armstrong; var n, x, min, max, summa, k, l, p: integer; function stepChis(k, n:integer):integer; var step:integer; begin step:=k; for l := 2 to n do step := step * k; stepChis:=step; end; function sumstep(p, n:integer):integer; var i, l, summa :integer; begin summa := 0; for i := 1 to n do begin k:=p mod 10; summa := summa + stepChis(k,n); p := p div 10 end; sumstep:=summa; end; begin for n := 2 to 4 do begin writeln('Числа Армстронга для n=', n); min := 1; for l := 1 to n - 1 do min := min * 10; max := min * 10 - 1; for x := min to max do begin if sumstep(x, n) = x then writeln(x); end; end; readln; end. |
10.05.2018, 16:50 | #2 |
Пользователь
Регистрация: 05.03.2018
Сообщений: 17
|
и как написать программу нахождение количества чисел в числе?
|
10.05.2018, 16:56 | #3 | |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
str - число в строку
length - длина строки и твое количество цифр в числе можно div 10 использовать без преобразования в строку Цитата:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
|
10.05.2018, 21:23 | #4 |
Пользователь
Регистрация: 05.03.2018
Сообщений: 17
|
|
11.05.2018, 00:15 | #5 |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
тряхнул стариной...
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
Последний раз редактировалось min@y™; 11.05.2018 в 00:25. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Числа Армстронга | _Лето_ | Общие вопросы C/C++ | 0 | 09.07.2014 23:11 |
числа армстронга | m00nJinn | Общие вопросы C/C++ | 1 | 09.12.2011 21:27 |
Числа Армстронга | KOMPNET | Помощь студентам | 6 | 09.10.2011 02:55 |
Аксиомы Армстронга | Mikuro | Общие вопросы по программированию, компьютерный форум | 0 | 08.10.2011 19:38 |
нахождение чисел Армстронга | kabum13 | Microsoft Office Excel | 5 | 29.12.2010 14:45 |