Ввести целое число и найти сумму его цифр.
5-9 класс
|
Пример:
Введите целое число:
1234
Сумма цифр числа 1234 равна 10.
Nastenaromanut
11 нояб. 2013 г., 18:41:17 (10 лет назад)
Minlinalida
11 нояб. 2013 г., 20:58:04 (10 лет назад)
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.
Ответить
Другие вопросы из категории
Читайте также
Ввести целое число и найти сумму его цифр.
Пример:
Введите целое число:
1 2 3 4
Сумма цифр числа 1 2 3 4 равна 10
Введите целое число и найти сумму его цифр.
Пример:
Введите целое число:
1 2 3 4
Сумма цифр числа 1 2 3 4 равна 10
ввести целое число и найти сумму его цифр .проверить , если сумма цифр делится на 9 , сделать вывод число кратно 9 .
В pascal . Составьте пожалуйста полную программу со всеми обозначениями .
Программу надо написать в PascalABC, с использованием команд repeat и until. Ввести натуральное число и определить, какие цифры встречаются несколько раз
(с защитой от неверного ввода) или Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10 (с защитой от неверного ввода).
Вы находитесь на странице вопроса "Ввести целое число и найти сумму его цифр.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.