Question

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

Answer 1

Ответ:

program ПроизведениеЦифр;

var

 число, произведение, цифра: Integer;

begin

 произведение := 1;

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

 ReadLn(число);

 while число > 0 do

 begin

   цифра := число mod 10;

   произведение := произведение * цифра;

   число := число div 10;

 end;

 WriteLn('Произведение цифр: ', произведение);

end.

Объяснение:

Answer 2

## uses School;

var n := ReadInteger('Введи натуральное число:');

Print('Произведение его цифр равно:', n.Digits.Product)