Пользователь вводит внутренний и внешний радиусы плоского кольца, представляющего собой часть плоскости между двумя концентрическими окружностями. Программа выводит площадь кольца. Если внешний радиус оказался меньше внутреннег...
Пользователь вводит внутренний и внешний
радиусы плоского кольца, представляющего собой часть плоскости между
двумя концентрическими окружностями. Программа выводит площадь
кольца. Если внешний радиус оказался меньше внутреннего, то программа
при этом должна сообщить об этом пользователю и корректно считать
площадь, поменяв местами радиусы(Паскаль)
Гость
Ответ(ы) на вопрос:
Гость//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
Не нашли ответ?
Похожие вопросы