p := sign(y + 13 * a) * power(abs(y + 13 * a), 1/3);
Объяснение:
Единственная проблема тут - как записать кубический корень. В паскале есть функция power(a, p), которая возводит a в степень p, но если p не целое, оно работает только для положительных (для p > 0 неотрицательных) a. Кубический корень же определён для всех a.
Решение такое: посчитать кубический корень для модуля ![\sqrt[3]{|a|}=|a|^{1/3}](/tpl/images/1497/4036/6aba0.png)
, а потом поставить такой же знак, что и под корнем.
Полностью программа может выглядеть, например, так:
var p, y, a: real;
begin
read(y, a);
p := sign(y + 13 * a) * power(abs(y + 13 * a), 1/3);
write(p)
end.
Саша - вышивание, Маша - танцы, Валя - рисование.
Объяснение:
Либо часть про Сашу, либо про Машу ложна (два верных утверждения быть не может). Тогда либо Саша занимается вышиванием, либо Маша - рисованием.
1) Саша занимается вышиванием. Тогда Валя не может заниматься вышиванием, её часть гарантированно ложна. Значит, верно утверждение про Машу: она не занимается рисованием, ей остаются танцы. Получается, Валя занимается рисованием.
2) Маша занимается рисованием. Остается два высказывания: Саша не занимается вышиванием, Валя - занимается вышиванием. Одно из этих утверждений истинно, другое ложно. Но если истинно первое, то обе девочки не занимаются вышиванием, если истинно второе - обе занимаются. Такого быть не может, поэтому Маша не может заниматься рисованием.
x = []
y = []
for i in range(8):
x1, y1 = list(map(int, input().split()))
x.append(x1)
y.append(y1)
Is_right = False
for i in range(7):
for k in range (i + 1, 8):
if x[i] == x[k] or y[i] == y[k] or abs(x[i] - x[k]) == abs(y[i]-y[k]):
Is_right = True
if Is_right:
print("YES")
else:
print('NO')
Объяснение: