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
Результат - во вложении.
Там закладочка, в которой есть кнопка для нумеровки страницы.
Program z13;
var s,l,pi:real;
r:integer;
begin
writeln('r=');
readln(r);
pi:=3.14;
s:=pi*sqr(r);
l:=2*pi*r;
writeln('s=',s,' l=',l);
readln;
end.
Ответ:
координатными устройствами ввода
Объяснение: