Var r1,r2,s:real;
function square(r:real):real;
begin
square:=pi*r*r;
end;
begin
writeln('r1, r2:');
readln(r1,r2);
s:=abs(square(r1)-square(r2));
writeln('Площадь кольца = ',s:5:2);
end.
Пример:
r1, r2:
3 5
Площадь кольца = 50.27
Извини, конечно, но нельзя ли перевернуть страницы учебника и списать всё оттуда?
Вот задачка написана в среде Pascal.ABC.NET
В Youtube есть видео с названием <span>"Практична робота № 5. Комп’ютерне моделювання (друга частина в середовищі розробки Lazarus)". Практическое решение этой задачи
Может поможет
</span>
#include<iostream>using namespace std;double alkach(long long a, long long b){ while(a!=b) { if(a>b) a-=b; else b-=a; } return a;}main(){ long long a,b,c,h; cin>>a>>b; c=alkach(a,b); h=(a*b)/c; cout<<h;}<span>
</span>