Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [TP] сумма цифр числа

Автор: GreMail 21.12.2006, 20:14

Найти сумму цифр введенного числа. (на каждом шаге выделяется последняя цифра числа, а затем число делится на 10, пока не станет равным 0).

Автор: doomik 21.12.2006, 22:23

Код


program zifri;
   var
     Number, Sum:integer;
begin
Sum := 0;

   writeln('Enter number:');
   readln(Number);
   
   whle Number <> 0 do
         begin
                    Sum := Sum + Number mod 10;
                    Number := Number div 10;
         end;
writeln('Sum: ',Sum);
end.