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