Составьте программу решающую...

Тема в разделе "Информатика", создана пользователем G3nksta, 10 фев 2010.

  1. G3nksta

    G3nksta New Member

    Составьте программу решающую следующую задачу. Известна длина окружности L. Найдите площадь круга S ограниченного этой окружностью. Формулы для вычислениядлины окружности и площади круга I=2пR? S= пR^2( где п= 3,14)
     
    G3nksta, 10 фев 2010
    #1
  2. gogo

    gogo New Member

    const
      p = 3.14;
    var
      L, S:real;
    begin
      write('L = '); readln(L);
      writeln('S = ', sqr (L / (2 * p)) * pi);
    end.
     
    gogo, 10 фев 2010
    #2

Поделиться этой страницей

Наша группа