Дано натуральное число

@Genius94 · Регистрация: 21.11.2011

Студворк — интернет-сервис помощи студентам

Дано натуральное число.Верно ли следующее: сумма его цифр больше 10.Помогите решить задачу пожалуйста.(не в консольном приложении).Плиз очень надо.

@Selot · 29.11.2012, 11:22

Натуральное число представь в виде строки, из этой строки выдергивай по одному символу, переводи символ в число и так пока не дойдешь до конца. Суммируй эти числа, сравнивай результат с 10 и собственно все. Гугли работу со строками, функция Copy вроде называется.

@volvo · 29.11.2012, 12:15

Не надо ничего переводить в строку, а потом - опять в числа. Да еще и через Copy... Ужас. Остаток от деления на 10 и деление нацело еще никто не отменял:

Delphi

var
   s, n : Integer;
// ...
s := 0;
while n > 0 do // N - число, которое нужно проверить.
begin
   s := s + n mod 10;
   n := n div 10;
end;
 
if s > 10 then // Да, сумма больше, делай что нужно
else // Ну, и тут делай что нужно в случае, если сумма не больше 10

@Genius94 1 / 1 / 0 Регистрация: 21.11.2011 Сообщений: 121
		1
	Дано натуральное число 29.11.2012, 08:52. Показов 939. Ответов 2 Метки нет (Все метки) Дано натуральное число.Верно ли следующее: сумма его цифр больше 10.Помогите решить задачу пожалуйста.(не в консольном приложении).Плиз очень надо. 0

@Selot 192 / 128 / 52 Регистрация: 19.01.2010 Сообщений: 518
	29.11.2012, 11:22	2
	Натуральное число представь в виде строки, из этой строки выдергивай по одному символу, переводи символ в число и так пока не дойдешь до конца. Суммируй эти числа, сравнивай результат с 10 и собственно все. Гугли работу со строками, функция Copy вроде называется. 0

	29.11.2012, 12:15

Опции темы

Дано натуральное число

Решение