Блог учителя Информатики

Решение задачи Begin15


Условие задачи:

Дана площадь S круга. Найти его диаметр D и длину L окружности, ограничивающей этот круг, учитывая, что L = π·D, S = π·D2/4. В качестве значения π использовать 3.14.


uses
  PT4;

const
  pi = 3.14;

var
  s, d, l: real;

begin
  Task('Begin15');
  read(s);
  d := sqrt((4 * s) / pi);
  l := pi * d;
  write(d, l);
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий