VBA:
Sub P()
Dim x As Double, y As Double
x = Val(InputBox("x = "))
If x <= 0 Then
y = Sin(2 * x)
ElseIf x <= 10 Then
y = Tan(x)
Else: y = 0.33 * x
End If
MsgBox (" Y = " & y)
End Sub
S:=0
For i:=1 to 10
S:=s+2*i
i:=1
S:=o+2*1=2
i:=2
S:=2+2*2=6
i=3
S=6+2*3=12
i=4
S=12+2*4=20
i=5
S=40+2*5=50
i=6
S=50+2*6=62
i=7
S=63+2*7=77
i=8
S=77+2*8=93
i=9
S=93+2*9=111
i=10
S=111+2*10=131
Ответ=131
1. Экранирование внешних воздействий.
2. Вторичный источник питания
3. Основа для построения вычислительной системы
4. Часть, исполняющая код. Главная часть аппаратного обеспечения вычислительной машины.
5. Хранение выполняемого кода, входных и выходных данных. При выключении вычислительной машины освобождается.
6. Хранение и накопление данных.
7. Чтение и запись дисков
8. Преобразование графического образа в форму для вывода на монитор.
9. Обработка и вывод звука.
10. Охлаждение вычислительной машины.
Const n = 10;
var x: array[1..n] of integer;
i: integer;
begin
Randomize;
for i := 1 to n do
begin
x[i] := Random(11);
Write(x[i]:4)
end;
end.
Но́рберт Ви́нер (англ. Norbert Wiener; 26 ноября 1894, Колумбия, штат Миссури, США — 18 марта 1964, Стокгольм, Швеция) — американский учёный, выдающийся математик и философ, основоположник кибернетики и теории искусственного интеллекта.