Пользователь вводит внутренний и внешний
радиусы плоского кольца, представляющего собой часть плоскости между
двумя концентрическими окружностями. Программа выводит площадь
кольца. Если внешний радиус оказался меньше внутреннего, то программа
при этом должна сообщить об этом пользователю и корректно считать
площадь, поменяв местами радиусы(Паскаль)
радиусы плоского кольца, представляющего собой часть плоскости между
двумя концентрическими окружностями. Программа выводит площадь
кольца. Если внешний радиус оказался меньше внутреннего, то программа
при этом должна сообщить об этом пользователю и корректно считать
площадь, поменяв местами радиусы(Паскаль)
More Questions From This User See All
Answers & Comments
Verified answer
//Pascal ABC.NET 3.1 сборка 1219Var
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