Question

Ввести целое число и найти сумму его цифр.
Пример:
Введите целое число:
1234
Сумма цифр числа 1234 равна 10.

Answer 1

var i,number:integer;   
 sum:real;
begin 
sum:=0.0; 
 write('write number:');
  readln(number); 
while( number > 0 ) do 
begin   
sum:= sum + ( number mod 10 ); 
   number:=number div 10; 
end; 
writeln(sum);
end.

Answer 2

спасибо, но у меня программа паскаль