1)var i,n:integer;x,p:real;
begin
readln(n,x);
p:=1;
for i:= 1 to n do
p:=p*x;
write(p);
readln
end.
2)var x:integer;
begin
readln(x);
if x < 18 then
write('да')
else
write('нет');
readln
end.
Wings 3D
Art of Illusion
SketchUp
K-3D
Blender
и встроеный в Windows 10 Paint 3D
Ответ:
#include <iostream>
#include <iomanip>
using namespace std;
int main()
{
int n;
double P=1;
cin >> n;
for(double i = 2; i <= 2*n;i+=2)
P *= i/(i+1);
cout << fixed << setprecision(3) << P;
}