Вопрос по информатике:
Разработайте на псевдокоде алгоритм (а если хочется и можется - реализующую его программу) вычисления суммы и произведения цифр трёхзначного натурального числа (будем считать, что данные точно корректны).
Пожаловаться
- 18.04.2018 09:10
- Информатика
- remove_red_eye 9511
- thumb_up 25
Ответы и объяснения 1
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Введите натуральное трехзначное число');
var s:=Abs(n).ToString;
Assert(s.Length=3,'Некрасиво нарушать условие!');
var a:=s.Select(t->t.ToDigit).ToArray;
Writeln('Сумма цифр равна ',a.Sum,', произведение ',a[0]*a[1]*a[2])
end.
Пример
Введите натуральное трехзначное число 528
Сумма цифр равна 15, произведение 80
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Введите натуральное трехзначное число');
var s:=Abs(n).ToString;
Assert(s.Length=3,'Некрасиво нарушать условие!');
var a:=s.Select(t->t.ToDigit).ToArray;
Writeln('Сумма цифр равна ',a.Sum,', произведение ',a[0]*a[1]*a[2])
end.
Пример
Введите натуральное трехзначное число 528
Сумма цифр равна 15, произведение 80
Пожаловаться
- 19.04.2018 16:16
- thumb_up 20
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы