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

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.