Напишите программу которая вычисляет площадь кольца , если его толщина t см, а диаметр внутреннего круга-d см (в паскале)
Answers & Comments
D9tel
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.
Answers & Comments
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.