Var a,b:real;
begin
readln(a,b);
a:=sqr(a);
b:=sqr(b);
if a > b then write('n=1')
else write('n=2');
end.
1. г)<span>welcome.text
2. a=DD(16)=221(10)
b=337(8)=223(10)
x=222(10)=</span>11011110(2)
Ответ: а)11011110
1 бит т.к красных и черных в колоде одинаковое кол-во.
В лучший ответ пожалуйста, 2 до отличника не хватает