Разработайте ** псевдокоде алгоритм (а если хочется и можется - реализующую его...

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

Comments

А можно в Visual Bacic?