|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.10.2009, 20:01 | #1 |
Регистрация: 14.12.2008
Сообщений: 9
|
Найти сумма единиц
Где ошибка?заранее спасибо
var a,k,s:integer; begin while a>0 do begin k:=a mod 10; a:=a div 10 ; s:=s+k; writeln(s) end; end. |
22.10.2009, 20:59 | #2 |
пропагандирую жизЪ
Форумчанин
Регистрация: 19.03.2007
Сообщений: 950
|
ну ты представь что ты будешь делить ноль на 10.
а теперь представь что это будет продолжаться до тех пор, пока не станет больше нуля. установи начальное значение для а.
Посторонним В.
|
22.10.2009, 21:10 | #3 |
Форумчанин
Регистрация: 10.10.2009
Сообщений: 680
|
Нет, в этом плане проблемы немного другие будут - ведь цикл работает "пока больше", тоесть всего 0 раз. Во-первых, установить а, это да, а еще - сомневаюсь, что сумму надо выводить каждый раз - если не надо, то вынесите ее из тела цикла.
|
22.10.2009, 21:16 | #4 |
Регистрация: 07.10.2009
Сообщений: 1
|
Мне кажется, здесь не только проблемма в отсутствии значения а, но и в том, что не присвоено начальное значение S.
|
22.10.2009, 21:20 | #5 |
Форумчанин
Регистрация: 10.10.2009
Сообщений: 680
|
|
22.10.2009, 21:41 | #6 |
Регистрация: 14.12.2008
Сообщений: 9
|
я врубился)) нужно было токо readln(a) и все прога работает)
|
22.10.2009, 22:11 | #7 |
Регистрация: 22.10.2009
Сообщений: 8
|
ну жжешь чувак)
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Преобразование единиц измерения | Zirat | Microsoft Office Excel | 9 | 29.11.2022 21:14 |
2 задания на паскале(сумма ряда, помогите найти ошибку) | Niko Uoki | Помощь студентам | 3 | 07.06.2009 17:39 |
Даны сведения о товарах на складе: наименование, цена, количество единиц товара. Найти товар, стоимость н | Evidence | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 03.06.2009 00:09 |
Найти два числа,сумма каких равняется сумме всех других чисел, которые остались! Помогите будьте людьми! | Snake08 | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 08.12.2008 18:33 |
Найти такую точку, сумма расстояний от которой до остальных точек минимальна | SIEGER | Помощь студентам | 3 | 18.11.2008 17:53 |