![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#21 |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 881
|
![]()
а чем вам мой алгоритм не подходит?
|
![]() |
![]() |
![]() |
#22 |
Пользователь
Регистрация: 02.03.2011
Сообщений: 24
|
![]()
Final version:
program ProgOne; var i,num,a,b,c: integer; begin writeln ("Enter number:"); readln (num); for i:=100 to num do begin a:= i div 100; b:=(i mod 100) div 10; c:=i mod 10; if i=((a*a*a)+(b*b*b)+(c*c*c)) then writeln (num); end; end. |
![]() |
![]() |
![]() |
#23 |
Форумчанин
Регистрация: 04.01.2011
Сообщений: 125
|
![]()
uses crt;
function sum3(x:longint):longint; var tmp:longint; begin sum3:=0; while (x>0) do begin tmp:=x mod 10; sum3:=sum3+tmp*tmp*tmp; x:=x div 10; end; end; var n,i:longint; begin write('n= '); readln(n); for i:=1 to n do if (i = sum3(i)) then writeln(i); Readln; end. |
![]() |
![]() |
![]() |
#24 |
Форумчанин
Регистрация: 04.01.2011
Сообщений: 125
|
![]()
скинул знакомый. такую версию. у меня не запускается.
|
![]() |
![]() |
![]() |
#25 |
Форумчанин
Регистрация: 04.01.2011
Сообщений: 125
|
![]()
блиин. это же не это требуется в условии((
|
![]() |
![]() |
![]() |
#26 |
Пользователь
Регистрация: 02.03.2011
Сообщений: 24
|
![]()
Требуется. Это перебор всех чисел до введённого, и проверка условия. Но вариант знакомого всё-же лучше.
|
![]() |
![]() |
![]() |
#27 |
Форумчанин
Регистрация: 04.01.2011
Сообщений: 125
|
![]()
program tak;
var a,b,c,ch : integer; begin write ('Vvedite zadannoe chislo'); write (ch); { teper nado naiti vse cifri menwe zadannogo} For i:= 1 to ch do begin мне кажется теперь надо цикл вставить |
![]() |
![]() |
![]() |
#28 |
Форумчанин
Регистрация: 04.01.2011
Сообщений: 125
|
![]()
вариант знакомого у меня не запускается, и я не понимаю что там да как вышло((
|
![]() |
![]() |
![]() |
#29 |
Пользователь
Регистрация: 02.03.2011
Сообщений: 24
|
![]()
А какая ошибка в его варианте?
|
![]() |
![]() |
![]() |
#30 |
Пользователь
Регистрация: 02.03.2011
Сообщений: 24
|
![]()
Я написал только для трёхзначных чисел
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Даны натуральные числа n и m. Получить сумму m последних цифр числа n | pahanzona | Microsoft Office Excel | 11 | 27.02.2011 02:17 |
2. Совершенным числом называется число, равное сумме всех делителей, меньших, чем оно само. Например, 28= | Sos1 | Помощь студентам | 7 | 08.06.2010 01:08 |
найти все натуральные числа,не превосходящие заданного n | fredperry1661 | Помощь студентам | 1 | 02.02.2010 17:10 |
вводим два числа, получить все меньшие n натуральные числа, квадрат суммы цифр которых равен m | Sparky | Помощь студентам | 2 | 22.11.2009 21:59 |