Противный случай - это то же самое, что в другом случае или на языке информатики "иначе".
По-моему, в вашем случае "противного случая" нет, т. к. все возможные значения х учтены в первых случаях: число х может быть меньшим 0, большим 0, или равным 0. Но, если не придираться к условию, то программа выглядит так:
program funkciya;
var x, y: real;
begin
write('x='); readln(x);
if x<0 then y:=sin(sqr(x)) + 2*x
else if x>=0 then y:=sqrt(x)+sqrt(sqr(x)+1)
else y:=cos(x);
write('y=',y:5:2)
end.
a = []
k = int(input())
n = k * 2 - 1
a.append(1)
for i in range(1, k):
a.append(a[i - 1] + 1)
for i in range(k, n):
a.append(a[i - 1] - 1)
print(" ".join(map(str, a)))
Компьютеры подразделяются на ЭВМ компьютеры суперкомпьютеры ноутбуки нетбуки
ЭВМ-электронная вычислительная машина
Компьютеры-обычные компьютеры
Суперкомпьютеры-превосходящие по всем данным обычные компьютеры
Ноутбуки-компьютер меньшего размера
Нетбуки-ноутбуки меньшего размера уступающие им по данным
На Windows используется многоуровневая файловая структура<span> - древовидный (иерархический) способ организации файлов на диске. Для облегчения понимания этого вопроса воспользуемся аналогией с традиционным "бумажным" способом хранения информации. В такой аналогии файл представляется как некоторый озаглавленный документ (текст, рисунок) на бумажных листах. Следующий по величине элемент файловой структуры называется </span>каталогом<span>. Продолжая "бумажную" аналогию, каталог будем представлять как папку, в которую можно вложить множество документов, т. е. файлов. Каталог также получает собственное имя (представьте, что оно написано на обложке папки).</span>
Sub aaa()
Const n = 50
Dim a(1 To n) As Double, Zero As Boolean
Randomize Timer
For i = 1 To n
a(i) = Int(21 * Rnd - 10)
Next i
k = 0: Zero = False
For i = 1 To n
If a(i) = 0 Then
Zero = True
Exit For
End If
Next i
If Zero Then
MsgBox "Количество членов последовательности равно " + CStr(i)
Else
MsgBox "В последовательности нет нулей"
End If
End Sub