Question

Написать программу вычисления площади кольца. Ниже приведен рекомендуемый вид экрана во время выполнения программы. Вычисление площади кольца Введите исходные данные: Радиус внешнего круга (см): Радиус внутреннего круга (см): Площадь внешнего круга: Площадь внутреннего круга: Площадь кольца:

Answer 1

uses crt; 
var r1,r2:real;  
function Scirkle(r:real):real;
begin  
Scirkle:=pi*sqr(r);
end;
begin  
clrscr;
 writeln('r1,r2');
 readln(r1,r2);
 writeln('Площадь кольца равна ',Scirkle(r1)-Scirkle(r2));
 readln;
end.