Вычислить факториал - Turbo Pascal (29471)

Формулировка задачи:

1. даны натуральные числа m и n. Вычислить значение m!+n!/(m+n)!

Решение задачи: «Вычислить факториал»

Листинг программы

function fact(x: byte): real;
var
  i: byte;
  s: real;
begin
  s := 1;
  for i := 1 to x do
    s := s * i;
  fact := s
end;
 
var
  m, n: byte;
  s: real;
  
begin
  Write('m = '); ReadLn(m);
  Write('n = '); ReadLn(n);
  WriteLn('S = ', fact(m) + fact(n) / fact(m + n) * 2:0:0);
  ReadLn
end.

Объяснение кода листинга программы

В функции fact объявлены две переменные - i и s. Переменная i инициализируется значением 1, а переменная s инициализируется значением 1.
Затем в цикле for происходит итерация от 1 до x. На каждой итерации значение переменной s умножается на значение переменной i.
По завершении цикла значение переменной s присваивается переменной fact.
В основной части программы объявлены три переменные - m, n и s. Переменная m и переменная n считываются с помощью функции ReadLn и сохраняются в переменных m и n соответственно.
Затем вычисляется факториал m и n с помощью функции fact(m) и факториала n с помощью функции fact(n).
Полученные значения факториала m и n суммируются и делятся на факториал m + n.
Результат выводится на экран с помощью функции WriteLn.
Затем с помощью функции ReadLn происходит чтение ввода от пользователя.