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

#include <iostream>
#include <cstdio>
#include <cmath>
using namespace std; 
int main()
{   
 int a, b, c;    
cin>>a>>b>>c;   
 if ((a + b < c) || (a + c < b) || (b + c < a))    
{        
cout<<"Не треугольник";        
return 0;   
 }    
if ((a * a + b * b == c * c) || (a * a + c * c == b * b)||    (c * c + b * b == a * a))        
{           
 cout<<"Прямоугольный";            
return 0;        
}    
if ((a * a + b * b > c * c) || (a * a + c * c > b * b)||    (c * c + b * b > a * a))        cout<<"Остроугольный";   
 else        
cout<<"Тупоугольный"; }

1)
const
n=5;
var
a:array[1..n,1..n]of integer;
i,j:integer;
     begin     
         for i:=1 to n do       
               begin             
                      writeln;                     
                        for j:=1 to n do                         
                              begin                               
                                  a[i,j]:=i+j;                               
                                   write(a[i,j]:4);                         
                              end;         
               end;   
 end.
2) 
    const
        n=4;m=5;
    var
a:array[1..n,1..m]of integer;
i,j,max:integer;
begin
    for i:=1 to n do
          begin
              writeln;
              for j:=1 to m do
                  begin
                      a[i,j]:=random(100)-50;
                      write(a[i,j]:4);
                  end;
          end;
max:=a[1,1];
for i:=1 to n do
    for j:=1 to m do
          if a[i,j]>max then
              max:=a[i,j];
writeln;
writeln(max);
for i:=1 to n do
     for j:=1 to m do
           if (a[i,j]<0)and(a[i,j]>-5)then
               a[i,j]:=max;
writeln;
for i:=1 to n do
   begin
    writeln;
        for j:=1 to m do
             write(a[i,j]:4);
   end;
end.