формулу (а+не в)(a+b) преобразуйте в эквивалентную , исключив логическое умножение.( 30 )

1. Для наглядности построй в столбик значения двойки в степенях от 0 до 7. Это будет 1, 2, 4, 8, 16, 32, 64, 128.

2. Разложи число (Внимание! Обязательно только из десятичной системы счисления) на числа из построенного ранее столбика.

К примеру возьмем число 37. 37=32+4+1.

2. Отсчитывай от числа из столбика 128 до 1. Если в разложении имеется это число, то пиши 1. Иначе 0.

0(128 нету) 0(64 нету) 1(32 есть!) 0(16 нету) 0 1 0 1

Цифр должно получиться восемь. Лучше пересчитать на случай, если случайно забыл ряд.

То есть по этому алгоритму .

И, конечно же, пробуй переводить числа самостоятельно. Сухая теория тут не имеет места.

Program Vby_1;
uses crt;
var a,b,c:real;
begin
  writeln('***   Alphaues is thinking...   ***');
  writeln('Ok, введите катеты: ');
  write('a= ');readln(a);
  write('b= ');readln(b);
  writeln('Периметр прямоугольного треугольника = ',a+b+sqrt(a*a+b*b):8:2);
end.

Program Vby_2;
uses crt;
var a,b,h,t:real;
begin
  writeln('***   Alphaues is thinking...   ***');
  writeln('Ok, введите данные: ');
  write('Одно основание = ');readln(a);
  write('Другое основание = ');readln(b);
  write('Высота = ');readln(h);
  t:=abs(a-b)/2;
writeln('Периметр трапеции =',a+b+sqrt(h*h+t*t):8:2);
end.

Program Vby_3;
uses crt;
var s:integer;
begin
  writeln('***   Alphaues is thinking...   ***');
  write('Ok, введите расстояние в сантиметрах: '); readln(s);
  write('Число полных метров = ',s div 100);
end.