Помогите , пожалуйста !! Написать алгоритмом и программой Паскаль

+ 0 -

Настенчик2002

27 янв. 2014 г., 19:10:26 (10 лет назад)

var a, b:real;
begin
   read (a, b);
   writeln(pi*abs(a*a-b*b):0:10);
end.
P.S.

+ 0 -

Снежок0

27 янв. 2014 г., 19:46:38 (10 лет назад)

var
  r1, r2, s: real;

begin
  Write('Введите через пробел внутренний и наружный радиусы кольца: ');
  Readln(r1, r2);
  s := Pi * (sqr(r2) - sqr(r1));
  Writeln('Площадь кольца равна ', s:0:5)
end.

Тестовое решение:

Введите через пробел внутренний и наружный радиусы кольца: 3.85 7.12
Площадь кольца равна 112.69490