Sub aaa()
Const t = 24.683, s = -15000
Dim x As Double, y As Double, z As Double
Select Case t
Case Is > 0
x = 3 * t ^ 2
Case 0
x = 4
Case Else
x = 24 * t
End Select
If t - s > x Then
y = 0
Else
y = 241
End If
z = x + y
MsgBox z
End Sub
Результат - во вложении.
Надо знать точную модель процессора, знать форм-фактор корпуса и т.д., чтобы подобрать нужную модель материнской карты.
<span>операторы машинного доения
рекламащик
инженер программист
</span><span>
</span>
5 Кбайтов = 5*2^13 битов
2560=5*512 =5*2^9 символов
5*2^13 : (5*2^11) = 2^2 =4 бита для одного символа
2^4 =16 символов в данном алфавите
Var x,y: real;
begin
read(x);
y:=(2*x)/(4-x);
writeln('y=',y);
end.
Вторая задача
var k,i,p:integer;
begin
p:=1;
read(k);
for i:=1 to k do
if i mod 2=1 then p:=p*i;
writeln( 'p=',p);
end.