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

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


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

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


uses
  PT4;

const
  pi = 3.14;

var
  l, r, s: real;

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

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