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

А можно в Visual Bacic?

Нет, нельзя. В вопросе язык не указан. Почему я должен дважды делать работу из-за того, что автор вопроса не подумал написать, что ему надо?

// 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