Пожаловаться
- 06.12.2017 12:17
- Информатика
- remove_red_eye 7736
- thumb_up 50
Ответы и объяснения 1
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=Abs(ReadInteger('Введите натуральное число:'));
// Abs - защита от злобных буратинок, вводящих отрицательные числа
var s:=0;
while n>0 do begin
s+=n mod 10;
n:=n div 10
end;
Writeln('Сумма цифр равна ',s)
end.
Пример
Введите натуральное число: 3052
Сумма цифр равна 10
Замечание: число не обязательно должно быть четырехзначным
// Внимание! Если программа не работает, обновите версию!
begin
var n:=Abs(ReadInteger('Введите натуральное число:'));
// Abs - защита от злобных буратинок, вводящих отрицательные числа
var s:=0;
while n>0 do begin
s+=n mod 10;
n:=n div 10
end;
Writeln('Сумма цифр равна ',s)
end.
Пример
Введите натуральное число: 3052
Сумма цифр равна 10
Замечание: число не обязательно должно быть четырехзначным
Пожаловаться
- 07.12.2017 14:02
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы