Var y, i, n: integer;
begin
writeln('Введи n');
readln(n);
y := 1;
for i := 1 to n do
y := y *( 2 * i);
writeln(y);
<span>end.</span>
<span>1.
</span>На Рабочем столе размещаются небольшие картинки
— значки и ярлыкиобъектов<span> (ярлык — это картинка с небольшой стрелочкой в нижнем левом
углу). Они обеспечивают быстрый доступ к объектам — различным устройствам и
программам компьютера, а также текстам, рисункам и другим документам, созданным
с помощью компьютерных программ.
ЗначокМойкомпьютер обеспечивает доступ к
различным устройствам компьютера. В Корзину отправляется «мусор» — всё то, что уже не нужно хранить в памяти
компьютера. А значок Мои документы поможет быстро найти созданные вами рисунки
и другие документы. Если ваш компьютер связан с другими компьютерами, то на
Рабочем столе обязательно присутствует значок <span>Сетевое окружение.</span><span></span></span>
Способ определять положение точки или тела с помощью чисел или других символов.
var
p, w, x, y: real;
begin
Write('Введите через пробел p, x, w: ');
Readln(p, x, w);
y := sqrt(2 * p) * exp((x + 1) * ln(x)) * exp(-x - sqrt(w / (2 * p * x)));
Writeln('Y=', y:0:6)
end.
Тестовое решение:
Введите через пробел p, x, w: 3 1.456 4.7
Y=0.690109