![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Пользователь
Регистрация: 02.03.2011
Сообщений: 24
|
![]()
И это только для трёхзначных чисел.
|
![]() |
![]() |
![]() |
#12 |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 881
|
![]()
есть ещо вариант переводим в строку потом каждый символ в число и проверяем условие
|
![]() |
![]() |
![]() |
#13 |
Форумчанин
Регистрация: 04.01.2011
Сообщений: 125
|
![]()
ага. я поняла) )
слушай а зачем оно вообще-то в принципе)) мне же надо все числа меньше его обработать, ведь так?? |
![]() |
![]() |
![]() |
#14 |
Форумчанин
Регистрация: 04.01.2011
Сообщений: 125
|
![]()
я сразу так подумала. но это будет как то не красиво смотрется. задача заданна по предмету программная инженерия. и мне к ней надо только блок схему. а как я нарисую блок схему ,Е сли не знаю как записать текст программы(
|
![]() |
![]() |
![]() |
#15 |
Форумчанин
Регистрация: 04.01.2011
Сообщений: 125
|
![]()
мне кажется надо цыкл написать от 100 до заданного числа
и в этом цыкле найти все числа ... а потом их расспечатать только как. |
![]() |
![]() |
![]() |
#16 |
Пользователь
Регистрация: 02.03.2011
Сообщений: 24
|
![]()
Код программы:
program tak; var i,num,a,b,c: integer; begin writeln ("Enter number:"); readln (num); for i:=100 to num do begin a:= num div 100; b:=(num mod 100) div 10; c:=num mod 10; if num=((a*a*a)+(b*b*b)+(c*c*c)) then writeln (num); end; end. Для трёхзначного числа. Компилятора под рукой нет, проверить не могу. |
![]() |
![]() |
![]() |
#17 |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 881
|
![]()
хотя можно и не переводить в строку вот алгоритм которій раскладывеат числа на цыфры
Код:
а ето токо для трехзначного тогда тут вопше проблем нет |
![]() |
![]() |
![]() |
#18 |
Пользователь
Регистрация: 02.03.2011
Сообщений: 24
|
![]()
Ошибочка
![]() |
![]() |
![]() |
![]() |
#19 |
Форумчанин
Регистрация: 04.01.2011
Сообщений: 125
|
![]()
так мне надо по условию найти все числа которые не привосходят заданное. вот в чем подвох.
и у которых сумма кубов их цифр равна самому числу |
![]() |
![]() |
![]() |
#20 |
Форумчанин
Регистрация: 04.01.2011
Сообщений: 125
|
![]()
тут не все так просто выходит.
(( |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Даны натуральные числа 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 |