Question

Информатикавводится число вывести произведение числе в программе Паскаль ​

Answer 1

Ответ:

program Chernovik;

var a,p: integer;

begin

p:=1;

read(a);

while a>0 do

begin

p:=p*a mod 10;

a:=a div 10

end;

write (p)

end.

Объяснение:

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

Ввод числа

Цикл с предусловием (пока число больше 0):

1) считаем произведение последней цифры числа

2) отбрасываем последнюю цифру числа

Вывод произведения цифр числа

div - целочисленное деление

mod - остаток от целочисленного деления

Программа работает для a>0

Answer 2

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

pascalCopy code
program MultiplyNumbers;
var
  num1, num2, result: integer;
begin
  writeln('Введите первое число: ');
  readln(num1);

  writeln('Введите второе число: ');
  readln(num2);

  result := num1 * num2;

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

Вы можете скопировать этот код в среду разработки Pascal (например, Turbo Pascal) и выполнить программу. Программа попросит вас ввести два числа, а затем выведет их произведение на экран.