На книжной полке стоят два тома: первый и второй. Они стоят обычным : слева — первый, справа - второй, корешками к нам. Толщина первого тома - 8 см без обложки, толщина второго тома — 11 см без обложки. Толщина каждой обложки — 0,5 см.
Книжный червь прогрыз норку от первой страницы первого тома до последней страницы второго тома.

Какова длина норки, если иметь в виду, что норка строго прямая?

решите !

1. Площадь ромба можно определить по формуле



Microsoft qBASIC 1.0

DIM a AS DOUBLE, alpha AS DOUBLE, k AS DOUBLE, s AS DOUBLE
CLS
INPUT "a, alpha="; a, alpha
k = ATN(1) / 45
PRINT "S="; a ^ 2 * SIN(alpha * k)

2. Договоримся, что a≤b и c≤d. Если после ввода это не так, то меняем местами значения a,b и/или c,d.

Условие, при котором первый прямоугольник поместится во второй выглядит как a<c ∧ b<d

DIM a AS INTEGER, b AS INTEGER, c AS INTEGER, d AS INTEGER, t AS INTEGER
CLS
INPUT "a,b,c,d"; a, b, c, d
IF a > b THEN
   t = a: a = b: b = t
END IF
IF c > d THEN
   t = c: c = d: d = t
END IF
IF a < c AND b < d THEN
   PRINT "Входит"
ELSE
   PRINT "Не входит"
END IF

{массив заполняется случайным образом положительными и отрицательными элементами. Находятся отрицательные элементы на главной диагонали и если они есть, то находится их сумма и количество. После этого проверяется, если есть отрицательные элементы на главной диагонали, то выдается среднее арифметическое, если нет, то на экране ответ "нет отриц"}
const
m=100;
var
a:array[1..m,1..m]of integer;
i,j,S,n,k: integer;
begin
Readln(n);
    for i:=1 to n do
        begin
             writeln;
                 for j:=1 to n do
                      begin
                            a[i,j]:=random(100)-50;
                             write(a[i,j]:4);
                                  
                      end;
         end;
for i:=1 to n do
  if a[i,i]>0 then
        begin
           s:=s+a[i,i];
           k:=k+1;
       end;
writeln;
 if   k<>0 then
      writeln('SR=', s/k)
 else
       writeln('Net <0');
end.