Даны неотрицательные целые числа a, b отыскать F(m,n) = n!-m! /
Даны неотрицательные целые числа a, b найти F(m,n) = n!-m! / (n!+m)! .Опредилить вспомогательную функцию вычисляющую факториал.
Задать свой вопросprogram zz1;
var a, b:integer; //задаем переменные целого типа
i:real;
function fact(x:integer):integer;
var n,m:integer;
begin
m:=1;
for n:=1 to x do
begin
m:=m*n;
end;
fact:=m;
end;
begin
write( введите 1-ое число a ); // вводим с клавиатуры 1-ое число
read(a);
write( введите 2-ое число b ); // вводим с клавиатуры 2-ое число
read(b);
i:=fact(a)-fact(b)/fact(fact(a) + b); // вычисляем ответ по заданной формуле с внедрением функции вычисления факториала
write( Приобретенный итог = , i); // выводим ответ
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Русский язык.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.