Информатика, програм-ние

Question

Информатика, програм-ниеДано натуральное число n. Найти сумму цифр в этом числе.

Гость

Ответ(ы) на вопрос:

Гость

input n s=0 do while n<>0 s=s+n mod 10 n=n10 Loop Print s

Accepted Answer

while (chislo div 10)<>0 do begin s:= s+ch mod 10; chislo:= chislo div 10; end; s:=s+chislo; //s - сумма цифр