С++
#include <iostream>
using namespace std;
bool Election(int a,int b,int c)
{
int t=0,f=0;
if(a==true)
t++;
else
f++;
if(b==true)
t++;
else
f++;
if(c==true)
t++;
else
f++;
if(t>f)
return TRUE;
else
return FALSE;
}
void main()
{
bool x,y,z;
cin>>x,y,z;
cout<< Election(x,y,z) <<endl;
system("pause");
}
2 в 10 степени = 1024 кб
1024 кб = 1024000 байт
——————————————
2 в 8 степени = 256
256 Гб = 2048000000000 бит
Sub Main()
Dim a(9) As Double
a(0) = (Math.PI + 0.03 * 10 ^ -3) / Math.Log(Math.Sqrt(15 * Math.E) - 0.2 * 10 ^ -4) + 10 ^ (4.2 - 0.67)
a(1) = 3.95 + (1 / 20) ^ 2 + 1 / 900
a(2) = (2.75 * 10 ^ 2) / Math.Sqrt(14.3 + Math.PI)
a(3) = 2 ^ (Math.Log(0.34 - 10 ^ 3) - (0.16 - 5.27) / 0.029)
a(4) = (Math.Sqrt(0.079 / 3.5 - 6.1 * 10 ^ -5) + 0.4) * (Math.E ^ (0.7 / 9 + 0.8) - 1.5)
a(5) = (Math.Sqrt(7.65) + 4.1 * 10 ^ -3) ^ 2 / Math.Log(3.17 ^ 2 + 3.752) - Math.Sqrt(1 / 0.46 - 0.9)
a(6) = Math.E ^ (Math.PI / 4) * Math.Log(3 * (17.8 ^ 2 - 0.139 * 10 ^ 2)) + 2.3 * 0.69 / 1.5
a(7) = 6.7 * (1 / (Math.PI + 5.04) + 10 ^ (0.198 * Math.Sqrt(3.2))) - 0.36 * 10 ^ -3
a(8) = (10 ^ (1 / 3) - Math.Log(4.25 + 1 / 7) + 0.89 * 10 ^ -4 * 1.2) / (Math.E + 6)
a(9) = 0.09 * (Math.Log(0.41 * 10 ^ -3 + Math.Sqrt(0.26 * 10 ^ -5)) + Math.Sqrt(5.68 - Math.Sqrt(3)) - Math.E ^ (3 * 7))
Console.WriteLine(a(0))
Console.WriteLine(a(1))
Console.WriteLine(a(2))
Console.WriteLine(a(3))
Console.WriteLine(a(4))
Console.WriteLine(a(5))
Console.WriteLine(a(6))
Console.WriteLine(a(7))
Console.WriteLine(a(8))
Console.WriteLine(a(9))
Console.Read()
<span> End Sub
Знаю, можно было вывод сделать циклом, но у меня не получилось ._.</span>
program abc;
var x,y:real;
begin
readln(x);
if x <= 0 then
begin
y:=x+4;
end;
if (x < 0) and (x <= 7.5) then
begin
y:=x*x+3;
end;
if x > 7.5 then
begin
y:=x+((sqrt(x))/2);
end;
writeln(y);
end.
Каменный, деревянный,стеклянный,двухэтажный и т.д.