1 Кбайт = 1024 байт = 1024 * 8 бит
1/4 Кбайт = 1024 * 2 бит = 2048 бит
var
z: integer;
begin
randomize;
z:=random (1000) -500;
writeln (z);
if z mod 3=0 then writeln (' число делится на 3')
else writeln (' число не делится на 3')
end.
Нужно дрова поставить(драйвера)в настройках подивись чи є,якщо нема то встанови
1.4)
2.5)
3.5
4.3
5.г
6.5
7.1
8.2
9.1
10.2
11.1
12.1
13.2
14.10байт
дальше я не знаю
Вот) Тут используется формула
var
D, y, x, v: real;
begin
writeln('Enter x, y and v:');
readln(x, y, v);
y := exp(5*ln(y)); { y^5 }
x := exp(12*ln(x)); { x^12 }
v := exp(7*ln(v)); { v^7 }
v := exp(9*ln(cos(v))); { cos(v^7)^9 }
writeln(x, ' ', y, ' ', v);
end.