Написать ** языке PascalABC решение следующей задачи: найдите площадь кольца,...

Question

Написать на языке PascalABC решение следующей задачи: найдите площадь кольца, ограниченного двумя окружностями. Радиусы произвольные.

Answer 1

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.