Найти сумму цифр заданного натурального числа

@ЕЕлена · Регистрация: 27.10.2015

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

Найти сумму цифр заданного натурального числа

Заранее благодарен, программу, пожалуйста, в ДЕЛФИ напишите, а то уже завтра зачет по программированию)

~~Verevkin~~ · 18.11.2015, 21:28

Сообщение от ЕЕлена

а то уже завтра зачет по программированию

как же так получилось? отдыхал на лазурном берегу? не сезон, вроде...

Pascal

z:= 0;
while x <> 0 do 
  begin
    inc(z, x mod 10);
    x:= x div 10;
  end;

@ЕЕлена 0 / 0 / 0 Регистрация: 27.10.2015 Сообщений: 26
		1
	Найти сумму цифр заданного натурального числа 18.11.2015, 21:16. Показов 911. Ответов 1 Метки нет (Все метки) Найти сумму цифр заданного натурального числа Заранее благодарен, программу, пожалуйста, в ДЕЛФИ напишите, а то уже завтра зачет по программированию) 0

	18.11.2015, 21:28