Question

Разработайте на псевдокоде алгоритм (а если хочется и можется - реализующую его программу) вычисления суммы и произведения цифр трёхзначного натурального числа (будем считать, что данные точно корректны).

Answer 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

Answer 2

Алгоритм вычисления суммы и произведения цифр трехзначного натурального числа на псевдокоде:

1. Ввод трехзначного натурального числа num
2. Проверка, что num является трехзначным числом
3. Если num не является трехзначным числом, то вывод ошибки и завершение программы
4. Иначе
5. Инициализация переменной sum = 0
6. Инициализация переменной product = 1
7. Инициализация переменной digit = 0
8. digit = num % 10 // Получение последней цифры числа
9. sum = sum + digit // Добавление цифры к сумме
10. product = product * digit // Умножение цифры на произведение
11. num = num / 10 // Удаление последней цифры числа
12. digit = num % 10 // Получение следующей цифры числа
13. sum = sum + digit // Добавление цифры к сумме
14. product = product * digit // Умножение цифры на произведение
15. num = num / 10 // Удаление следующей цифры числа
16. digit = num % 10 // Получение первой цифры числа
17. sum = sum + digit // Добавление цифры к сумме
18. product = product * digit // Умножение цифры на произведение
19. Вывод суммы и произведения

Пример выполнения алгоритма: ``` Введите трехзначное натуральное число: 123 Сумма цифр: 6 Произведение цифр: 6 ```