Var x,y : real; b:boolean;
begin
write('x = '); readln(x);
write('y = '); readln(y);
b:= (x*x+y*y<=36)and((x<=0)or(x>=0)and(y<=0));
writeln(b);
<span>end.</span>
Program gt;
var y,x:real;
begin
x:=0.5;
while x<3 do
begin
x:=x+0.5;
y:=sqrt(x+2*x(x-5));
writeln(y);
end;
end.
11011, 11012, 11013, 11014, 11015
11011-10111=900
11011+10111=21122
про двоичную систему счисления не знаю как не помню
а) Векторная
б) На мониторе графика векторная, на выходе из принтера - растровая.
Не уверен, мб че не учел. 50/50. Не бей. Но зато быстро)
1 = 1
2 = 2
3 = 3
4 = 2 + 2
5 = 2 + 3
6 = 3 + 3
7 = 7
8 = 1 + 7
9 = 2 + 1
10 = 7 + 3
<u>Ответ: 1, 2, 3, 7</u>