Question

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

Answer 1

program kolco;
var t,d:integer;
S:real;
begin
writeln ('Введите толщину кольца');
readln (t);
writeln ('Введите диаметр внутреннего круга кольца');
readln (d);
S:=pi*sqr(t+d/2)-pi*sqr(d/2);
write ('Площадь кольца равна ',S,' сантиметров квадратных');
end.