Написать на языке PascalABC решение следующей задачи: найдите площадь кольца, ограниченного двумя окружностями. Радиусы произвольные.
program Площадь кольца;
var A, B, C, S: real;
begin
writeln (Радиус большего круга = ,A, );
readln (A);
writeln (Радиус меньшего круга = ,B, );
readln (B);
C:=3,14 ;
writeln ( = ,C, );
S:=C*SQR(A)-C*SQR(B);
writeln (S кольца = ,S, )
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
