Var x, y: real;
begin
readln(x);
if (x > -1) then y := 3 * sqr(x) - 4 * x
else y := 1 / (2 - 3 * x);
writeln(y);
<span>end.
Проверил =)</span>
Без жанра игры , игра не имеет смысла . Со жанром игра имеет смысл её проходит
Жанр должна быть в игре
From random import randint
a=[]
pre=-1
c=None
for i in xrange(25):
b=randint(0, 5)
if pre == b:
c=b
pre=b
a.append(b)
<span>print "Исходный массив: \%s, Одинаковые числа: \%s".decode("utf-8")\%(a, "Есть: \%i".decode("utf-8")\%(c) if c is not None else "Нет".decode("utf-8"))</span>
////////////////////////////////////////////////////////