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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

program Площадь кольца; var A, B, C, S: real; begin writeln ('Радиус большего круга = ',A,' '); readln (A); writeln ('Радиус меньшего круга = ',B,' '); readln (B); C:=3,14 ; writeln ('[latex]\pi[/latex] = ',C,' '); S:=C*SQR(A)-C*SQR(B); writeln ('S кольца = ',S,' ') end.