Создать программу по следующим условия: -Ваш рост вводите в режиме пользователя. Для девушек переменная d Если ваш рост больше 166 см, то вы "выше среднего" иначе "ниже среднего". Для парней переменная m Если ваш рост больше 178 см, то вы "выше среднего" иначе "ниже среднего".

Задание 1

1⁵ 0⁴ 1³ 0² 1¹ 0⁰ = 1 · 2⁵ + 0 · 2⁴ + 1 · 2³ + 0 · 2² + 1 · 2¹ + 0 · 2⁰ = 32 + 0 + 8 + 0 + 2 + 0 = 42₁₀

Задание 2

35 = 32 + 2 + 1 = 2⁵ + 2¹ + 2⁰ = 100 000 + 10 + 1 (в столбик - двоичное сложение) = 100011₂

Задание 3

Стоит помнить, что:

1 + 1 = 10

1 + 1 + 1 = 11

1 + 1 + 1 + 1 = 100

Это происходит, потому что в 2-й системе счисления всего два числа - 0 и 1. В 10-й системе счисления это выглядело бы примерно так:

...

1 + 9 = 10

...

1 + 19 = 20

...

1 + 99 = 100

То есть переполнение числа приводит к тому, что цифра слева  увеличивается на единицу. В случае, если есть девятка - то цифра слева увеличивается на 1.

999 + 1 = 1 0 0 0

Это решение при задании вручную этих чисел:
Program sadadasf;
var i,k,l: integer;
begin
Writeln('Введите первое целое двухзначное число:');
readln(i);
Writeln('Введите второе целое двухзначное число:');
readln(k);
If k>i then begin
k:=k*k;
i:=i*2;
end;
If i>k then begin
i:=i*i;
k:=k*2;
end;
Writeln('Первое число:', i);
Writeln('Второе число:', k);
end.

Это решение при задании чисел в самой программе:
Program sadadasf;
var i,k,l: integer;
begin
i:=5;
k:=3;
If k>i then begin
k:=k*k;
i:=i*2;
end;
If i>k then begin
i:=i*i;
k:=k*2;
end;
Writeln('Первое число:', i);
Writeln('Второе число:', k);
end.