интервал записывается как двойное условие (в скобках через and или or)
if (a < 4.2) or (a > 8.4) then power(a, 3);
аналогично для других переменных.
(-53 ; 67)
Var X, Y, Z : Integer;
BeginY:= 1;RepeatX:= X-12;Z:= Z+16;Y:= Y+1;Until Y = 5;X:= X-3;Z:= Z+1;X:= X-2;Z:= Z+2;Writeln('X= ', X, ' | Z= ', Z);End.
Инф.объем = частота * время * разрядность * кол-во дорожек
1 мин = 60 сек
Дорожка 1 (т.к. В условии не сказано что их несколько)
1,3 мб = 1,3*1024*1024*8 бит
1,3*1024*1024*8 = частота * 60 * 8 * 1
1,3*1024*256 = частота * 15
Частота =1,3*1024*256 / 15
Осталось посчитать
Sub aaa()
a = InputBox("A=")
b = InputBox("B=")
c = InputBox("C=")
x = InputBox("x=")
z = x ^ 2 + Abs(b * x - 3 * c) / Log(x ^ 2 + b * c + a)
Cells(1, 1) = z
End Sub
//PascalABC.Net 3.2
begin
for var i:=1 to 10 do
begin
for var j:=1 to 10 do write (i*j:2, ' ');
writeln;
end;
end.