Нужна в переводе программы с Pascal на VBA var
z,c,o,x:real;
I:byte;
begin
writeln('Введите x');
readln(x);
i:=1;
c:=1;z:=1;
while(i<=63) do
begin
c:=c*(x-i);
i:=i+2;
end;
i:=2;
while(i<=64) do
begin
z:=z*(x-i);
i:=i+2;
end;
Writeln(c);
Writeln('--');
Writeln(z);
writeln('ответ=',c/z:5:2);
end.

annaobryv861    1   13.01.2021 12:07    1