Question

Написать программу в Паскале (Дано натуральное трёхзначное число M. Найти частное от деления произведения цифр на сумму цифр данного числа.)

Answer 1

Ответ:

0

Объяснение:

program qwer;

var a, m, c, f, x, v :integer;

var h:real;

begin

  read(a);

  m:=a mod 10;

  c:=a mod 10 div 10;

  f:=a div 100;

  x:=m*c*f;

  v:=m+c+f;

  h := x/v;

  print(h)

end.

Answer 2

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

pascalCopy code
program QuotientOfProductAndSum;

var
  M, product, sum, quotient: integer;

begin
  writeln('Введите трёхзначное число M: ');
  readln(M);

  if (M < 100) or (M > 999) then
  begin
    writeln('Число должно быть трехзначным.');
  end
  else
  begin
    // Вычисляем сумму цифр
    sum := (M mod 10) + ((M div 10) mod 10) + (M div 100);
    
    // Вычисляем произведение цифр
    product := (M mod 10) * ((M div 10) mod 10) * (M div 100);
    
    // Вычисляем частное
    quotient := product div sum;
    
    writeln('Частное от деления произведения цифр на сумму цифр M равно: ', quotient);
  end;
end.

Эта программа сначала запрашивает у пользователя трехзначное число M. Затем она проверяет, является ли введенное число трехзначным. Если число соответствует условию, то программа вычисляет сумму и произведение цифр числа M, а затем находит частное от деления произведения на сумму и выводит результат.