X=b! * (1/a квадрат) паскаль помогите сделать программу и как вы сделали объяснение

Question

Информатика

Хаврония

29 апреля, 04:52

X=b! * (1/a квадрат) паскаль помогите сделать программу и как вы сделали объяснение

+2

Ответы (1)

Знаете ответ на вопрос?

Юка · Answer 1

Var

f, b, a, i:longint; / / описание переменных

begin

write ('Write b, a: ') ;

readln (b, a) ; / / Присваивание b, a числа

f:=1; / / Присваивание f=1

for i:=1 to b do / / Нахождение b! (факториала)

f:=f*i;

writeln ('x = ', f * (1/sqr (a)) : 0:2) ; / / вывод результатов (выполнение форумулы)

readln

end.