Напишите программу которая вычисляет площадь кольца , если его толщина t см, а диаметр...

Question

Напишите программу которая вычисляет площадь кольца , если его толщина t см, а диаметр внутреннего круга-d см (в паскале)

Answer 1

Var
t,d,S:real;
begin
write('Введите значение t=');read(t);
write('Введите значение d=');read(d);
S:=Pi/4*(sqr(d+t*2)-sqr(d));
writeln('Площадь кольца=',S:5:2);
end.