Question

Пользователь вводит внутренний и внешний
радиусы плоского кольца, представляющего собой часть плоскости между
двумя концентрическими окружностями. Программа выводит площадь
кольца. Если внешний радиус оказался меньше внутреннего, то программа
при этом должна сообщить об этом пользователю и корректно считать
площадь, поменяв местами радиусы(Паскаль)

Answer 1

//Pascal ABC.NET 3.1 сборка 1219

Var
 rm,rb,s:real;
begin
 readln(rm,rb);
 if rm>rb then
  begin
   writeln('Внутренний радиус больше внешнего');
   swap(rm,rb);
  end;
 s:=pi*(sqr(rb)-sqr(rm));
writeln('S=',s);
end.

Пример ввода:
7
4
Пример вывода:
Внутренний радиус больше внешнего
S=103.672557568463