talex1992
Дано число n типа integer,нужно вычислить сумму цифр этого номера. ( Например: 61512 это будет 6+1+5+1+2=15 )
заплачу 5 WMR
talex1992
Дано число n типа integer,нужно вычислить сумму цифр этого номера. ( Например: 61512 это будет 6+1+5+1+2=15 )
заплачу 5 WMR
xmikex
вот вроде работает.
program numbers;
var
i,n,result: integer;
begin
result := 0;
writeln('enter integer number');
readln(n);
if(n < 0)
then
n := -n;
while(n > 0)
do
begin
result := result + n mod 10;
n := n div 10;
end;
writeln('result is ', result);
end.
ТС вот книгу скачай и почитай
http://www.proklondike.com/books/thobshee/shen_programming.html
M0rtiis
xmikex, отличное решение. мой засохший мозг уж давно о таком забыл. респегт. терь както через эксплойд стрвал али типа того делают
03 Фев 2012, 2:02xmikex
M0rtiis, да я тут полчаса этот пост исправлял, вспоминая синтаксис паскаля.
03 Фев 2012, 2:07"заплачу 5 WMR" лучше бы не писал