1) Сайты. 2) Книгой. 3) Страниц. 4) Страницами сайта. 5) Ссылки. 6) Информацию. 7) Гиперссылками.
CLS
INPUT a$
L =
LEN(a$)
i = 1
DO WHILE
i < L + 1
s$ =
MID$(a$, i, 1)
c =
VAL(s$)
IF c \ 3
= c / 3 THEN
a$ =
LEFT$(a$, i) + s$ + RIGHT$(a$, L - i)
L = L +
1
i = i +
1
END IF
i = i +
1
LOOP
<span>PRINT a$</span>
невозможно, твоя вина. На своем опыте говорю
Sub Main() Dim x As Single Dim y As Single
Console.WriteLine("Введите координаты точки x ") x = Console.ReadLine() Console.WriteLine("Введите координаты точки y ") y = Console.ReadLine() If (x <= 4 And y <= 4 And y >= 4 - x) Or (y <= -4 - x And y >= -4 And x >= -4) Then Console.WriteLine("Точка принадлежит области") Else Console.WriteLine("Точка не принадлежит области") End If Console.ReadKey() End Sub
Не особо понятное задание. Если нужна просто запись формулы на языке Pyhton, то вот
k = 1 + (abs(y - x) ** 3 ) + (abs(y-x)/(x+1))
Если нужна программа, которая выполняет вычисления по этой формуле, то, наверное, она должна выглядеть как то так:
def main():
x = float(input())
y = float(input())
k = 1 + (abs(y - x) ** 3 ) + (abs(y-x)/(x+1))
print(k)
if __name__ == "__main__":
main()