Question

Pascal ABC.Задан радиус окружности r.если радиус окружности меньше 6 см, найти длину этой окружности,в противном случае найти площадь круга,ограниченного данной окружностью. L=2pr,S=2pr^2

Answer 1

var
  r: real;

begin
  writeln('Введите радиус окружности в сантиметрах');
  readln(r);
  if r < 6 then writeln('Длина окружности: ', 2 * pi * r)
  else writeln('Площадь круга, ограниченного данной окружностью: ', pi * sqr(r));
end.
Площадь круга равна pi * r^2, а не 2pr^2, как написано в условии!

Answer 2

Спасибо