С клавиатуры вводится натуральное число N. Найти сумму и произведение его цифр. Линейный код. Модуль School. PascalABC.NET. Функция Digits

 Задача. С клавиатуры вводится натуральное число N. Найти сумму и произведение его цифр.

Воспользуемся функцией digits из модуля School для решения данной задачи.

Функция digits получает список цифр числа. 

Формат использования: digits(n:int64)

Пример:

n:=4507;

println(digits(n));

Вывод: [4,5,0,7]

Для вычисления суммы цифр воспользуемся методом sum: digits(n).sum

Для вычисления произведения цифр воспользуемся методом product: digits(n).product

Программа решения задачи на языке Паскаль:

uses school;

var n,s,p:integer;

begin

  println('Введите натуральное число');

  readln(n);

  println('Список цифр числа',digits(n));

  s:=digits(n).Sum;

  p:=digits(n).Product;

  println('Сумма цифр',s);

  print('Произведение цифр',p);

end.

Эта программа имеет линейную структуру в отличие от программы с использованием оператора цикла while.