Function Compare(a,b:integer):char;
begin
if a<b then Compare:='<'
else if a=b then Compare:='='
else Compare:='>'
end;
var
x,y:integer;
begin
Write('Введите два числа через пробел: ');
Readln(x,y);
Writeln(x,Compare(x,y),y)
end.
Чтобы:звонить родным,общаться,играть в мобильные игры,читать новости,проверять информацию
Var z,x:real;
begin
readln(x);
z:=cos(1/sqrt(2*x));
writeln(z:0:3);
<span>end.</span>
10100(2)-1*2^4+0*2^3+1*2^2+0*2^1+0*2^0