Для начала нужно перевести данные числа в десятичную систему счисления.
А) 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
Var i:integer;
begin
for i:=192 to 223 do
write(chr(i),chr(i+32));
<span>end.</span>
begin
ReadInteger('num =').ToString.ToCharArray
.IndexesOf(x -> x = '7').Select(x -> x + 1).Println;
end.
Var
a: integer;
b, x: byte;
begin
readln(a);
x := a mod 10;
b := a div 1000 mod 10;
writeln(b, ' - ', x, ' = ', b - x);
end.
Begin
for var i:=1 to 7 do
writeln('Привет');
End.