Pascal
var
m : integer;
a,b,y : real;
begin
writeln ('menu:');
writeln ('1) y= (a+b)2');
writeln ('2) y= a^2-b^2');
writeln ('3) y= 1/(a+b)')
writeln ('a=');
readln(a);
writeln ('b=');
readln(b);
readln (m);
case m of
1: y := (a+b)*2;
2: y :=sqr(a)-sqr(b);
3: y := 1/(a+b);
end;
writeln ('y=',y:3:2);
end.
Program n1;
var x,y,n,z,h,C:real;
function arccos(x : real) : real;
begin
arccos := 2 * arctan(sqrt((1 - x) / (1 + x)));
end;
procedure ygls( a,b,c,t: real);
var al,be,ga: real;
begin
al := arccos((sqr(b) + sqr(c) - sqr(a))/(2 * b * c)) * 180 / pi;
writeln('угол A= ',trunc(al));
writeln('угол B= ',trunc(180-al-t));
end;
begin
write('введите сторону а: ');
readln(x);
write('введите сторону b: ');
readln(y);
write('введите угол С: ');
readln(C);
n:=C;
C:=cos(C*180/pi);
z:=sqrt(x*x+y*y-2*x*y*C);
h:=0.5*sqrt(2*(x*x+y*y)-c*c);
ygls(x,y,z,n);
writeln('сторона c: ',trunc(z));
writeln('высота h: ',trunc(h));
writeln('периметр P: ',trunc(x+y+z));
writeln('площадь S: ',trunc(z*h));
end.
П0 -> П1 ИП0 x^2 пи * 3 / С/П ИП0 x^2 ИП1 x^2 + КвКор ИП0 пи * * ИП0 x^2 пи * + С/П
Ввод: R -> h С/П. Далее на экране объём, после С/П - площадь поверхности.
Вот у тебя есть число 99
99 < 128, значит берем 64
Теперь составим 99 из степеней двойки:
64 = 2^6 = 1000000 (в двоичном виде это единица и 6 нулей)
32 = 2^5 = 0100000 (аналогично, единица и 5 нулей)
2 = 2^1 = 0000010
1 = 2^0 = 0000001 (любое число в 0 степени - 1)
Получаем 1100011
Sub Iter()
Dim s As Double, pi As Double, e As Double, a As Double
Dim i As Long, znak As Integer, k As Long
e = InputBox("введите значение eps")
pi = 4 * Atn(1)
s = pi
i = 2
znak = 1
k = 0
a = Tan(pi / (2 * i))
Do While a >= e
s = s + znak * a
i = i + 1
a = Tan(pi / (2 * i))
znak = -znak
k = k + 1
Loop
MsgBox "Сумма равна " + Str(s) + ", количество слагаемых " + Str(k)
End Sub