Question

Как найти произведение цифр четырех значного числа на языке паскаль?

Answer 1

Var
x,p:integer;
begin
writeln('Введите х:');
readln(x);
p:=1;
p:= x mod 10; x:=x div 10;
p:= p * (x mod 10); x:=x div 10;
p:= p * (x mod 10); x:=x div 10;
p:= p * x;
writeln(p);
end.

Answer 2

Вот пример программы на языке Pascal, которая находит произведение цифр четырехзначного числа:

pascalCopy code
program ProizvedenieCifr;

var
  number, digit, product: Integer;

begin
  Write('Введите четырехзначное число: ');
  Readln(number);

  // Находим произведение цифр
  product := 1;
  while number <> 0 do
  begin
    digit := number mod 10;
    product := product * digit;
    number := number div 10;
  end;

  // Выводим результат
  Writeln('Произведение цифр числа: ', product);
end.

Программа запрашивает у пользователя ввод четырехзначного числа, а затем с помощью цикла while находит произведение его цифр. Результат выводится на экран.