pascalabc:
program f0rwardirop;
var r, x,y: real;
b: boolean;
begin
writeln('* alphaeus is *');
write('ok, введите r ='); readln(r);
write('теперь введите х ='); readln(x);
write('и, наконец, введите y ='); readln(y);
if x> =0 then
if (x*x+y*y < = r*r) then b: = true else b: =false
else
if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;
if b then writeln('точка (',x,',',y,') принадлежит закрашенной области')
else writeln('точка (',x,',',y,') не принадлежит закрашенной области');
end.
uses graphabc;
procedure drawlight(x, y, r : integer; c : color);
begin
brush.color : = c;
circle(x, y, r);
end;
begin
randomize;
var v : = random(1, 3);
var(c1,c2,c3): =(clwhite,clwhite,clwhite);
case v of
1 : c1 : = clred;
2 : c2 : = clyellow;
3 : c3 : = clgreen;
end;
drawlight(window.center.x, window.height div 10 * 2, window.height div 7, c1);
drawlight(window.center.x, window.height div 10 * 5, window.height div 7, c2);
drawlight(window.center.x, window.height div 10 * 8, window.height div 7, c3);
end.
в паскале
124х = 45x+57x
4*х^0+2*x^1+1*x^2 =5*x^0+4*x^1 +7*x^0+5*x^1
4+2x+x^2 = 5+4x+7+5x
x^2+2x-4x-5x - 5-7+4 = 0
x^2-7x -8 = 0
В = 49+32 = 81 (9^2)
x1 = (7-9)/2 = -1 - не подходит по смыслу
х2 = (7+9)/2 = 8
ответ: основание системы 8