Ну, площадь круга, допустим, вычисляется по формуле
S = pi*R^2.
Ну а кольца из большего круга вычитаем меньший, получим
Sk = pi*(R1^2 - R2^2)
Вот собственно и всё.
Программы тут и нет, так, пара операторов, например
Пи=3,141592653;
Ввод(R1,R2);
S = Пи*ABS(R1*R1-R2*R2);
Сообщить(R1,R2,S);
Замечание1. Модуль (ABS) обязателен, для снятия ограничений на порядок ввода радиусов. При таком подходе порядок(больший-меньший или наоборот) роли НЕ ИГРАЕТ!
Замечание2 Написано некоем псевдоязыке, с которого легко переведёшь на тот, которым владеешь.
program raf105;
const
n = 9;
var
a,b1,b2:array[1..n] of integer;
k,i,j,c1,c2:integer;
begin
write('Введите число k: ');
readln(k);
writeln('Заполните массив:');
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
begin
if a[i] > k
then begin
c1:= c1 + 1;
b1[c1]:= a[i];
end;
if a[i] < k
then begin
c2:= c2 + 1;
b2[c2]:= a[i];
end;
end;
for i:=1 to c1 do
a[i]:=b1[i];
for i:=c1+1 to c2+c1 do
a[i]:=b2[i-c1];
write('Вывод: ');
for i:=1 to n do
write(a[i],' ');
end.
PascalABC 3.4.2Ну, площадь круга, допустим, вычисляется по формуле
S = pi*R^2.
Ну а кольца из большего круга вычитаем меньший, получим
Sk = pi*(R1^2 - R2^2)
Вот собственно и всё.
Программы тут и нет, так, пара операторов, например
Пи=3,141592653;
Ввод(R1,R2);
S = Пи*ABS(R1*R1-R2*R2);
Сообщить(R1,R2,S);
Замечание1. Модуль (ABS) обязателен, для снятия ограничений на порядок ввода радиусов. При таком подходе порядок(больший-меньший или наоборот) роли НЕ ИГРАЕТ!
Замечание2 Написано некоем псевдоязыке, с которого легко переведёшь на тот, которым владеешь.