Даны длины радиусов двух окружностей.Составьте программу определяющую разность площадей...

Question

Даны длины радиусов двух окружностей.Составьте программу определяющую разность площадей этих окружностей

Answer 1

Var r1,r2,ds:real;
begin
write('R1 = '); readln(r1);
write('R2 = '); readln(r2);
ds:=pi*abs(r1*r1-r2*r2);
writeln('ds = ',ds);
end.

Пример:
R1 = 6
R2 = 4
ds = 62.8318530717959

Comments

ds:=pi*abs(r1*r1-r2*r2); что это?

---

ну

---

Это школьная программа (6 класс). Площадь круга = pi*R*R (pi = 3.1415..., R - радиус окружности). abs() - функция вычисления модуля. А что такое "ну"???