Question

ДАЮ 23 БАЛЛОВ!♥️Напишите программу для нахождения добутку цыфр натурального числа N (ПАСКАЛЬ) СРОЧНО, ПОЖАЛУЙСТА ♥️

Answer 1

Ответ:

• var p, n: integer;
• begin
• readln(n);
• p := 1;
• while n <> 0 do
• begin
• if (n mod 10)<>0 then p := p * (n mod 10);
• n := n div 10;
• end;
• writeln(p);
• end.

Пример работоспособности:

Answer 2

Конечно, вот пример программы на языке Паскаль для нахождения произведения цифр натурального числа N:

pascalCopy code
program ProductOfDigits;

var
  N, digit, product: Integer;

begin
  writeln('Введите натуральное число N:');
  readln(N);
  
  product := 1;
  while N > 0 do
  begin
    digit := N mod 10;
    product := product * digit;
    N := N div 10;
  end;

  writeln('Произведение цифр числа: ', product);
end.

Вы можете скопировать этот код в среду программирования Pascal, скомпилировать и запустить его. Программа попросит вас ввести натуральное число N, а затем выведет произведение его цифр.