//Pascal ABC.NET v3.1 сборка 1172
//1
Var
x,y:real;
begin
read(x);
if x<=7 then
y:=3*x-9 else
y:=1/(x*x*x+4);
writeln(y);
end.
//2
Var
a,b:real;
begin
read(a,b);
if a>b then writeln(a*b) else writeln(a-b);
end.
. Проблемы гуманитарного характера – проблемы информационной безопасности, возникающие в связи с бесконтрольным использованием и распространением персональных данных граждан, вторжениями в частную жизнь, клеветой и кражами личности.
2. Проблемы экономического и юридического характера – проблемы информационной безопасности, возникающие в результате утечки, искажения и потери коммерческой и финансовой информации, краж брендов и интеллектуальной собственности, раскрытия информации о материальном положении граждан, промышленного шпионажа и распространения материалов, наносящих ущерб репутации компаний.
1 - delete
2. - с зажатым Ctrl
Sub Iter()
Dim s As Double, pi As Double, e As Double, a As Double
Dim i As Long, znak As Integer, k As Long
e = InputBox("введите значение eps")
pi = 4 * Atn(1)
s = pi
i = 2
znak = 1
k = 0
a = Tan(pi / (2 * i))
Do While a >= e
s = s + znak * a
i = i + 1
a = Tan(pi / (2 * i))
znak = -znak
k = k + 1
Loop
MsgBox "Сумма равна " + Str(s) + ", количество слагаемых " + Str(k)
End Sub
Ответ:
если зайти в интернет там найдёшь и ответ ДА