Question

Составить программу для turbo pascal. дано 2 круга с общим центром и радиусами r1 и r2 (r1> r2).найти площадь этих кругов s1 и s2,а также площадь кольца s3 ,наружный радиус которого равен r1,а внутренний радиус равен r2 ; s1=п(r1)^2, s2=п(r2)^2, s3=s1-s2. значение п=3.14

Answer 1

Program irinagavrish;
const
  pi = 3.14;
Var
  r1,r2,s1,s2,s3:real;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  write('Введите радиус первой окружности: ');readln(r1);
  write('Введите радиус второй окружности: ');readln(r2);
  s1:=pi*r1*r1;
  s2:=pi*r2*r2;
  s3:=abs(s1-s2);
  writeln('Площадь первого круга: ',s1:7:2);
  writeln('Площадь второго круга: ',s2:7:2);
  writeln('Площадь кольца: ',s3:7:2);
end.