===== PascalABC.NET =====
begin
var s:= ReadlnString;
s.Substring(0,s.Length div 2).Println
end.
Я не знаю как это сделать в паропаскале, но могу лишь чуть-чуть подтолкнуть. Нужно сотавить уравнение круга (x-a)^2+(y-b)^2=r^2;
Затем вместо х и y подставить координаты точки в получившееся уравнение, три случая:
*если то что слево<то что справо, то точка внутри окружности
*если то что слево уравнения == то что справа то на окружности
* иначе вне окружности
3:красный, зелёный, синий
1) 123 в двоичной = <span>1111011
123 в восьмеричной = 173
123 в шестнадцатеричной = 7В
456 в двоичной = </span>111001000<span>
456 в восьмеричной = 710
456 в шестнадцатеричной = 1С8
2) 100011 в десятеричной = 35
</span>100011 в восьмеричной = 43
100011 в шестнадцатеричной = 23
101001011 в десятеричной = 331
101001011 в восьмеричной = 513
101001011 в шестнадцатеричной = 14В
1110010001 в десятеричной = 913
1110010001 в восьмеричной = 1621
1110010001 в шестнадцатеричной 391
Uses crt;
var
x,y,a,b:integer;
begin
clrscr;
while true do begin
randomize;
x:=random(10);
y:=random(10);
write('Введите первое число=');read(a);
write('Введите второе число=');read(b);
writeln(x,' ',y);
if ((a=x) and (b=y)) or ((a=y) and (b=x)) then begin
writeln('Вы угадали');
end
else begin
writeln('Вы не угадали');
end;
end;
end.