Составить программу, сумма цифр пятизначного числа

Составить программу, сумма цифр пятизначного числа
Гость
Ответ(ы) на вопрос:
Гость
Var n,s : Integer; Begin   Readln(n);   s:=0;   While n>0 do   Begin     s:=s+(n mod 10);     n:=n div 10;   end;   Writeln(s); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы