Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

1. Заданы два числа - внешний R и внутренний r радиусы кольца. Найти площадь кольца

Ответ оставил Гость

Var R,R1:integer;
s:real;
begin
read(R,R1); // где R - внешний, а R1 - внутренний радиусы 
s:=pi*(sqr(R)-sqr(R1));
write(Площадь кольца=, s);
end.