Перевести число 110010 из десятичной системы счисления в двоичную. заранее .

1

var a,b,p:integer;

begin

 writeln('Введите длину');

 readln(a);

 writeln('Введите ширину');

 readln(b);

 writeln('Периметр прямоугольника = ',2*(a+b),' см')

end.

2

var a:integer;

begin

 writeln('Введите число');

 readln(a);

 if a > 0 then a:= a + 1;

 if a < 0 then a:= a - 6;

 if a = 0 then a:= 16;

 writeln(a);

end.

3

var a:integer;

begin

 writeln('Введите число');

 readln(a);

 if a > 0 then a:= a * 5;

 if a < 0 then a:= a * a;

 if a = 0 then a:= 15;

 writeln(a);

end.

4

var a,b:integer;

begin

 writeln('Введите 1 число');

 readln(a);

   writeln('Введите 2 число');

 readln(b);

 if a > b then writeln(a)

 else

   writeln(b);

end.

3

Объяснение:

В формуле используются смешанные ссылки (A$4+$B5). Номер строки или буква столбца, перед которыми стоит знак $, не меняются при копировании формулы.

При копировании этой формулы в ячейку столбца Е А$4 изменится на В$4 (сдвиг формулы на один столбец), а ячейка $В2 изменится на ячейку $В(номер строчки ячейки, куда скопирована формула).

Зная, что в результате подсчёта формулы получилось 13 и в ячейке В4 находится число 6, находим, что во второй ячейке должно находиться число 13-6=7. По таблице это ячейка В3. Значит, формула скопирована в ячейку Е3.

Искомая строка - 3.