Положительного, есть теория по этому)
1 Кб = 1024 байта = 8192 бита
1 Мб = 1024 Кб = 1048576 байта = 8388608 битов
1 Гб = 1024 Мб = 1048576 Кб = 1073741824 байт = 8589934592 бит
Program zd;
const
t=0,5;
var
a,b,c:byte;
r,s:real;
begin
writeln('Введите сторону А');
readln(a);
writeln('Введите сторону В');
readln(b);
writeln('Введите угол С (в градусах)');
readln(c);
r:=c*pi/180; {Перевод из градусов в радианы}
s:=t*a*b*sin(r); {Формула для вычисления}
writeln('Результат = ',s);
readln; {Сразу выводит результат на монитор без нажатия Ctrl+F9 (вроде бы)}
end.
Вроде бы так, попробуй запустить проверить
<span>import random
a = int(input("a = "))
b = int(input("b = "))
mas =[]
k_mas = mas
z_mas = []
for i in range(5)<span>:
</span></span>----<span>mas.append(random.randint(a,b))
print(mas)
<span>#print(k_mas)
</span>
for x in k_mas<span>:
</span></span>----<span>b = x**<span>2
</span></span>----<span>z_mas.append(b)
print(z_mas)
print(mas+z_mas)</span>
Var s,n: integer;
begin
read(n);
s:=0;
for var i := 1 to n do if i mod 2 <> 0 then s:=s+1;
writeln(s);
end.