Программа:
var x,y: real;
begin
write('x, y: ');
readln(x,y);
if (y>=x*x)and(x<=1)
then writeln('принадлежит')
else writeln('не принадлежит');
end.
Пример:
x, y: 0.5 2
принадлежит
Для начала нужно перевести данные числа в десятичную систему счисления.
А) 1001001(двоичная система счисления) = 2^6 + 2^3 + 2^1 = 64+8+2 = 74(десятичная)
Б) 1001100(двоичная) = 2^6 + 2^3 + 2^2 = 64+8+4 = 76( десятичная)
A<C<B
74<C<76
C = 75
2)75
У вас начало неправильное должно быть первой строкой program ; и не правильно'vari'вместо'var' цикл работать не будет так как не верный указан параметр
Var
a:array[1..2,1..3] of integer;
i,t,j:integer;
begin
writeln('До:');
for i:=1 to 2 do
begin
for j:=1 to 3 do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
end;
writeln;
end;
for j:=1 to 3 do
begin
t:=a[1,j];
a[1,j]:=a[2,j];
a[2,j]:=t;
end;
writeln('После:');
for i:=1 to 2 do
begin
for j:=1 to 3 do
write(a[i,j],' ');
writeln;
end;end.
<span>ПРИМЕР РАБОТЫ:
До:
5 5 2
8 6 2
После:
8 6 2
5 5 2
</span>