Дан прямоугольник с размерами 425х131. от него отрезают квадраты со стороной 131, пока это возможно. затем от оставшегося прямоугольника вновь отрезают квадраты со стороной, равной 425-131*3=32, и т.д. на какие квадраты и вкаком их количестве будет разрезан исходный прямоугольник?

1) отрезаем 3 квадрата со стороной 131, остается прямоугольник со сторонами 131*32

2) отрезаем 4 квадрата со стороной 32 ,(131-4*32 = 3), остается прямоугольник со сторонами 3*32

3) отрезаем 10 квадратов со стороной 3 (32-10*3=2), остается прямоугольник со сторонами 2*3

4) отрезаем квадрат со стороной 2 ,(3-2*1) остается прямоугольник со сторонами 1*2

5) разрезаем на 2 квадрата со сторой 1

итого получили: 3 квадрата 131*131; 4 квадрата - 32*32; 10 квадратов - 3*3,

1 квадрат - 2*2; 2 кадрата - 1*1

Var   i,n,k: integer;   p: longint;   f,ff: boolean; begin   write('введите количество чисел -> '); readln(n);   writeln('тeперь вводите сами числа');   p: =1; f: =false; ff: =false;   for i: =1 to n do   begin       read(k);       f: =((k< 0) and ((k mod 2)< > 0));       ff: =(ff or f);       if f then p: =p*k   end;   if ff then writeln('произведение нечетных отрицательных чисел: ',p)   else writeln('не было введено ни одного отрицательного нечетного числа') end. тестовое решение: введите количество чисел -> 10 тeперь вводите сами числа 5 -7 16 0 -3 4 -6 2 1 8 произведение нечетных отрицательных чисел: 21

Var   a,b,c,d,x,y: real; begin   write('введите размеры сторон сундука -> '); readln(a,b,c);   write('введите диаметр иллюминатора -> '); readln(d);   if a< b then begin       x: =a;       if b< c then y: =b else y: =c   end   else begin       x: =b;       if a< c then y: =a else y: =c   end;   if (sqr(x)+sqr(y)< sqr(d)) then writeln('сундук можно вытащить')   else writeln('сундук нельзя вытащить') end. тестовое решение: введите размеры сторон сундука -> 3 5 3.99 введите диаметр иллюминатора -> 5 сундук можно вытащить ********************** условие попадания точки a(x,y) внутрь треугольника описывается как var   x,y: real; begin   write('введите координаты x и y точки -> '); readln(x,y);   if (x> =0) and (y> =0) and (y< =5-x) then writeln('да')   else writeln('нет') end. тестовое решение: введите координаты x и y точки -> 3 2.5 нет введите координаты x и y точки -> 2.1 2.8 да