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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 29.08.2016, 15:20   #1
ZigaBr0
 
Регистрация: 19.02.2016
Сообщений: 7
По умолчанию Найти сумму цифр заданного натурального числа

Найти сумму цифр заданного натурального числа
ZigaBr0 вне форума Ответить с цитированием
Старый 29.08.2016, 15:27   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

задача может быть решена разными способами.
вот один из них
Код:
var sum, n : integer;
begin
 ReadLn(n); 
 sum:=0;
 while ( n<>0 ) do 
 begin
   sum := sum + (n mod 10);
   n := n div 10;
 end;
 WriteLn(sum)
end.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 29.08.2016, 16:04   #3
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

А ограничение на длину того числа есть? Вдруг препод тыщу цифр введет? Со злобы скажем
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 29.08.2016, 16:09   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
А ограничение на длину того числа есть? Вдруг препод тыщу цифр введет? Со злобы скажем
вот-вот, поэтому я и сказал: "задача может быть решена разными способами"
это зависит, в том числе, и от ограничений на входные данные.
если число может быть больше, чем Integer/LongInt, тогда лучше в цикле считывать по одной цифре(символу) числа и прибавлять к сумме.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
одномерный массив - найти сумму отрицательных меньше заданного числа и количество положительных больше заданного числа ALEXXELA Паскаль, Turbo Pascal, PascalABC.NET 2 02.12.2012 20:13
Посчитать сумму цифр натурального числа из файла (Паскаль) Avicenna Помощь студентам 3 24.10.2011 00:35
Для заданного натурального N найти сумму (другая задача) Bombastick Microsoft Office Excel 17 19.12.2010 16:49
найти сумму цифр заданного натурального числа dima.m Microsoft Office Excel 6 06.12.2010 11:30
Паскаль. Из заданного числа найти сумму его цифр Matlashov Помощь студентам 8 26.11.2009 14:27