Найти произведение цифр натурального числа - Pascal ABC

  1. Помогите пожалуйста с решением задачи с помощью рекурсивной функции :Найти произведение цифр натурального числа.


textual

Код к задаче: «Найти произведение цифр натурального числа - Pascal ABC»

program Mult;
 
  function MulDigits(n: integer): integer;
  begin
    if n <> 0 then
      MulDigits := (n mod 10) * MulDigits(n div 10)
    else
      MulDigits := 1;
  end;
 
var
  n: integer;
begin
  readln(n);
  writeln(MulDigits(n));
end.

СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 3.714 из 5



Похожие ответы
  1. Напишите программу, которая находит все различные цифры в символьной строке.Входные данные На вход программе подаётся символьная строка.Выходные данные Программа должна вывести в одной строке все различные цифры, которые встречаются в исходной строке, в порядке возрастания. Если в строке нет цифр, нужно вывести слово 'NO'.Примеры:входные данные ab1n32kz2выходные данные 123входные данные asdasdвыходные данные NO

  1. Составьте процедуру, выводящую строку из n одинаковых цифр. Длина строки и цифра, которая выводится, являются параметрами процедуры. Вывести пять строк разной длины из разных цифр. Процедуру оформить несколькими способами. P.S. Помогите пожалуйста с заданием)Заранее спасибо

  1. С клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях.

  1. Нужно переделать код так чтобы он при вводи четырех чисел определял совпадают ли в нем вторая и последняя.

  1. Помогите пожалуйста решить задачу: дано целое число. Вывести на экран значение наименьшей его цифры.

  1. Добрый день. Знаю, что такое уже было на вашем форуме, но оно было не полностью, а как доделать я не сильно знаю. Задача: Написать программу перевода целого числа a из цифрового формата в прописной. a < 1012 Пример: a = 123 ⇒ cто двадцать три. Вот код, который я обнаружил на этом сайте:

  1. Ввести трехзначное число .Вычислить корень квадратный второй цифры

  1. Дано натуральное число, определите сколько раз в нём встретится последняя цифра. решение нужно через цикл goto

  1. 29. Определить, заканчивается ли заданное натуральное число на нечетную цифру

  1. Дано целое число . Нужна программа выводящая на экран последнюю цифру этого числа ,затем возводит в квадрат и выводит на экран.