Нужна в переводе программы с 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.
var n:integer;
begin
read(n);
if (n=1) or (n=2) then writeln('1') else
if n<=999 then
if n mod 3 = 0 then writeln('2')
else writeln('1')
else if (n-1000) mod 3=0 then writeln('1')
else writeln('2')
end.
var n:integer;
begin
read(n);
if (n=1) or (n=2) then write('1') else
if n<=999 then
if n mod 3 = 0 then writeln('2')
else writeln('1')
else if (n-1000) mod 3=0 then write('1')
else writeln('2')
end.
2) Теперь из 2 надо получить 12 не более, чем за 4 команды. Если 2 возвести в квадрат, получим 4 и этого мало, поэтому возведем 4 еще раз в квадрат, получив 16. Два подряд вычитания двоек как раз дадут 12.
3) Решение
1 (возведи в квадрат) - получаем 4
1 (возведи в квадрат) - получаем 16
2 (вычти 2) - получаем 14
2 (вычти 2) - получаем 12
1 (возведи в квадрат) - получаем 144
ответ: 11221