Ввести целое число и найти сумму его цифр.
Пример:
Введите целое число:
1234
Сумма цифр числа 1234 равна 10.
Ответы на вопрос
Ответил Gluk1
0
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.
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.
Ответил sonyke
0
спасибо, но у меня программа паскаль
Новые вопросы