<span>Shift + F10 - в данный момент
Еще можно просто нажать правой кнопкой мыши на выбранный объект</span>
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
Результат - во вложении.
Файл - это определенное количество информации, имеющее имя и хранящееся в долговременной (внешней) памяти.
Текстовый редактор - это прикладная программа, позволяющая создавать текстовые документы, редактировать их, просматривать содержимое на экране, распечатывать документ
Графический редактор - это программа создания, редактирования и просмотра графических изображений.
Так вроде уже решал подобную задачу.
Задание 1
5*10³+3*10²+4*10¹+1*10⁰
Задание 2
2*8¹+5*8⁰+3*8⁻¹+4*8⁻²+1*8⁻³
Задание 3
2*6⁻¹+5*6⁻²+3*6⁻³+4*6⁻⁴+1*6⁻⁵
Var x,p,rez:real;
<span> n: integer;
</span><span>begin
</span><span> p:=1;
</span><span> write('числа через пробел (завершение ввода - 0): '); read(x);
</span><span> while x<>0 do
</span><span> begin
</span><span> p:=p*abs(x);
</span><span> read(x);
</span><span> end;
</span><span> write('N = '); readln(n);
</span><span> rez:=exp((1/n)*ln(p));
</span><span> writeln('корень ',N,' -ой степени из ',p,' = ',rez);
</span><span>end.
</span><span>
</span>