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
Var
a,b,c,d:integer;
e : real;
begin
readln (a,b);
c := a + b;
d := a * b;
e := a / b;
writeln ('Сумма = ',c,' произведение = ',d, ', а частное = ',e);
end.
2. информационный
3. алфавит
6. информация
12.знак
В коде программы допущен ряд ошибок, верный код вот:
program PRIMER;
var X, Y: INTEGER;
begin for X := 1 TO 3 DO begin Y := 6 DIV (X) + 4; WRITELN('ОТВЕТ ЗАДАЧИ=', Y); end;end.
Результат работы программы:
ОТВЕТ ЗАДАЧИ=10ОТВЕТ ЗАДАЧИ=7ОТВЕТ ЗАДАЧИ=6
3. Слой для записи намагничивается пишущей головкой, положение пишущей головки управляется лазером.