Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
8 лет назад
8 лет назад
8 лет назад