сравнить окружности, одна из которых задана радиусом, а другая площадью

1

Ответы и объяснения

  • Tlalok
  • почетный грамотей
2013-04-01T14:19:33+04:00

var

  r, s:real;

begin

  write('Введите радиус первой окружности '); readln(r);

  write('Введите площадь второй окружности '); readln(s);

  if r * r * pi > s then

    writeln('Первая окружность больше второй')

  else

    if r * r * pi < s then

      writeln('Первая окружность меньше второй')

    else

      writeln('Окружности равны');

end.