Написать программу вычисления площади кольца. Ниже приведен рекомендуемый вид экрана во время выполнения программы.

Вычисление площади кольца

Введите исходные данные:

Радиус внешнего круга (см):

Радиус внутреннего круга (см):

Площадь внешнего круга:

Площадь внутреннего круга:

Площадь кольца:

Question

Информатика

Геннадия

7 мая, 20:13

Написать программу вычисления площади кольца. Ниже приведен рекомендуемый вид экрана во время выполнения программы.

Вычисление площади кольца

Введите исходные данные:

Радиус внешнего круга (см):

Радиус внутреннего круга (см):

Площадь внешнего круга:

Площадь внутреннего круга:

Площадь кольца:

+2

Ответы (1)

Знаешь ответ?

Вяча · Answer 1

uses crt;

var r1, r2:real;

function Scirkle (r:real) : real;

begin

Scirkle:=pi*sqr (r);

end;

begin

clrscr;

writeln ('r1, r2');

readln (r1, r2);

writeln ('Площадь кольца равна ', Scirkle (r1) - Scirkle (r2));

readln;

end.