Ответ тут на фото там под колоной нужной ответ
Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (y>=-x)and(y>=x)and(y<=1)
then writeln('YES')
else writeln('NO')
end.
Пример:
x = 0.5
y = 0.3
NO
Лови фото на фото второй пример перевода из двоичной в десятичную, из четверичной принцип тот же
Var i, c, n: integer;
begin
read(n);
c:=1;
for i:=1 to n do
c:=c*2;
writeln(c);
<span>end.</span>
Чат это когда просто разговор а видео это типо по видеосвязи