Матрицы, наработок нет....

[Otre4eHHbIu]

Дана матрица из 2 столбцов и 10 строк. Первый элемент каждой строки представляет диаметр внутренней, а второй - диаметр внешней окружности кольца. Отпечатать внешние диаметры тех колец, площадь которых больше площади прямоугольника с заданными сторонами, и число таких колец.

[DenisWilson]

Использовать Turbo Pascal?

[Otre4eHHbIu]

да, именно он.

[DenisWilson]

Задача несложная. Сейчас Вам здесь кто-нибудь поможет.

[Serge_Bliznykov]

господи. Площадь круга = Pi*R^2, площадь кольца - это площадь окружности с большим диаметром минус площадь внутренней окружности, площадь прямоугольника = a*b, в принципе этого достаточно, чтобы сделать задачу!!

var Kolca : array[1..10,1..2] of real;
  r, a, b, Spr, Skolco : real;
  i, Kolvo : integer;
begin
  WriteLn('Введите 10 диаметров окружностей (внутренней и внешней)':);
  for i:=1 to 10 do Readln(a[i,1], a[i,2];
  WriteLn('Введите стороны прямоугольника:');
  ReadLn(a,b);

  {площадь прямоугольника}
  Spr := a * b;

  Kolvo := 0;
  for i:=1 to 10 do
  begin
      {площадь кольца}
      Skolco := Pi*sqr(a[i,2]/2) - Pi*sqr(a[i,1]/2);
      if Skolco > Spr then begin
        Kolvo := Kolvo +1 ;
        WriteLn('Внешний диаметр кольца с площадью больше',Spr:7:2,' : ',a[i,2]:7:2);
      end;
  end;
  WriteLn('Всего найдено ',Kolvo,' колец с большей площадью.');
end.