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

DerekHale23 DerekHale23    3   15.03.2021 17:39    4

Ответы
нюра42 нюра42  14.04.2021 17:40

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика

Популярные вопросы