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>
Ответ: а) т.к. первый бит задает знак(0 +, 1 -), и соответственно остальные биты по возрастанию увеличивают число в соответствующую сторону знака.
Const n=10;
Var A:array[1..n] of integer;
i:integer;
Begin
For i:=1 to n do
Begin
A[i]:=random(31);
if A[i] mod 3 = 0 then
write(A[i]:4);
End;
end.
var s:string;
i,n,max:byte;
begin
n:=0;i:=1;max:=0;
write('Введите s -> ');readln(s);
while i<=length(s) do begin
if (i=1) or (s[i]=' ') then begin
if i <> 1 then inc(i);
if (i<=length(s))and((s[i]='a') or (s[i]='A')) then
while i<=length(s) do
if s[i]<>' ' then begin
inc(n);
inc(i);
end else break;
end;
inc(i);
if max<n then max:=n;
n:=0;
end;
write('Длина самаго длинного слова на букву A = ',max);
end.
345:2=172(1)
172:2=86(1)
86:2=43(0)
43:2=21(1)
21:2=10(1)
10:2=5(0)
5:2=2(1)
2:2=1(0)
Ответ: 101011001