|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.12.2011, 00:59 | #1 |
Пользователь
Регистрация: 04.12.2011
Сообщений: 12
|
Циклы.Исправьте код,а то сам ошибки не могу найти.
Подсчитать количество N-значных натуральных чисел,в которых сумма цифр непарная,а младшая цифра тоже непарная(младшая цифра я так думаю это 123->3).
Вот мой код program nat_chisla; uses Crt; label 99; var i,a,N,sum,r:byte; begin readln(N); sum:=0; for i:=10 to N do begin while i>0 do begin a:=i mod 10; writeln(a); if (a mod 2=0)then goto 99 else sum:=sum+a; i:=i div 10; end; if(sum=0)then goto 99 else r:=r+1; 99:; end; writeln(r); end. Тип байт поставил чтобы раньше выйти с бесконечного цикла. Последний раз редактировалось Виндовс 7; 11.12.2011 в 02:16. |
11.12.2011, 03:16 | #2 |
Форумчанин
Регистрация: 05.09.2011
Сообщений: 109
|
для while j применить и ошибку не выдаст:
Код:
|
11.12.2011, 17:07 | #3 |
Пользователь
Регистрация: 04.12.2011
Сообщений: 12
|
kuy все равно неправильно. Попробуй ввести например число 125. Ничего не будет считаться.
Но все равно спс. |
11.12.2011, 17:24 | #4 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
11.12.2011, 23:20 | #5 |
Пользователь
Регистрация: 04.12.2011
Сообщений: 12
|
Mad_Cat спс,но я ещё функции не изучал.Но прога работает правильно.
Последний раз редактировалось Виндовс 7; 12.12.2011 в 02:19. |
18.12.2011, 02:23 | #6 |
Пользователь
Регистрация: 04.12.2011
Сообщений: 12
|
Случайно на одном сайте нашёл похожую задачку с кодом.Немного его подкоректировал и все правильно работает.
У кого есть желание можете посмотреть. Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
не могу найти ошибки, тема классы в С++ | нона | Помощь студентам | 1 | 16.11.2011 02:44 |
Не могу найти причину ошибки | pastuhdima | Помощь студентам | 0 | 06.10.2011 00:24 |
Не могу найти две ошибки. | Lunex.08 | Общие вопросы C/C++ | 10 | 22.10.2009 09:44 |
Не могу найти ошибки в задачах | Кипятилка | Помощь студентам | 4 | 01.07.2009 17:58 |