Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.03.2010, 00:42   #1
AlterNatioN
Новичок
Джуниор
 
Регистрация: 01.03.2010
Сообщений: 0
По умолчанию Сумма цифр из числа.

Задача, конечно, легкая, но почему-то она не работает, как надо: не находит сумму цифр из введенного числа, например, "вводим 123 ->1+2+3 т.е. 6". Надеюсь, укажите на ошибки, хотя я уверен в логичности программы.
Программа: http://s40.radikal.ru/i088/1002/21/a906b4662f05.jpg .
AlterNatioN вне форума Ответить с цитированием
Старый 01.03.2010, 02:03   #2
sheka
Босс
Форумчанин
 
Аватар для sheka
 
Регистрация: 03.06.2009
Сообщений: 125
По умолчанию

255507394.

Две одинаковые вложенные ошибки называются четной ошибкой и ошибкой не являются.
Ася 255507394. Отзывы здесь.
sheka вне форума Ответить с цитированием
Старый 01.03.2010, 02:08   #3
Olympian
Форумчанин
 
Аватар для Olympian
 
Регистрация: 06.06.2008
Сообщений: 105
По умолчанию

<--Ввод данных-->
s:=0;

while n > 0 do
begin
s := s + n mod 10;
n := n div 10;
end;
<---Вывод рез-тов-->

Наслаждайся
Olympian вне форума Ответить с цитированием
Старый 01.03.2010, 07:56   #4
Google2010
Форумчанин
 
Регистрация: 16.02.2010
Сообщений: 316
По умолчанию

var a,x:integer;
s:integer;
begin
writeln('введите целое число');
readln( a ); x:=a;
s:=0;
while ( x<>0 ) do
begin
s := s + (x mod 10);
x := x div 10;
end;
writeln( 'Сумма цифр числа ',a,' = ', s );
end.
Google2010 вне форума Ответить с цитированием
Старый 02.03.2010, 21:16   #5
AlterNatioN
Новичок
Джуниор
 
Регистрация: 01.03.2010
Сообщений: 0
Радость

ахахах.) я оказывается просто не правильно брал целочисленное деления и остаток, надо было пометь местами "n" с "10" у дива и мода, но все равно спасибо за решение, у меня оно на одно действие больше, т.е. можно считать оно лишние.)
AlterNatioN вне форума Ответить с цитированием
Старый 02.03.2010, 21:18   #6
AlterNatioN
Новичок
Джуниор
 
Регистрация: 01.03.2010
Сообщений: 0
По умолчанию

а вы оперативные, думал моя тема не создалась даже т.к. в ЛК счетчик сообщений и тем был на нуле.
AlterNatioN вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сумма цифр введенного трехзначного числа. Дельфи by -ORTODOX- Помощь студентам 20 02.02.2011 14:21
Сумма цифр числа... Dimak67 Microsoft Office Excel 5 09.04.2010 00:46
в паскале. Сумма цифр числа Siroga35 Помощь студентам 3 17.06.2009 14:54
Сумма цифр числа в ячейке Arlen Microsoft Office Excel 9 16.05.2009 12:10
сумма цифр целого числа mihsel Microsoft Office Excel 8 13.04.2009 13:57