Комбинаторика вроде как, но даже логически понятно если подумать что это не + и -, а 0 и 1,и тут логически должно стать понятно что все как и там,а значит два в третьей степени,а именно 8 различных, да что уж там вот все 8
---
--+
-+-
-++
+--
+-+
++-
+++
Наливаешь в кострюлю воду
ставишь на печку
ждешь пока закепит
солишь
ложишь топор
ложишь кашу
вываливаешь и ешь
<em>// PascalABC.NET 3.2, сборка 1336 от 14.11.2016</em>
begin
Writeln('Вычислите площадь кольца');
Writeln('Введите исходные данные');
var r1:=ReadReal('Радиус кольца (см)->');
var r2:=ReadReal('Радиус отверстия (см)->');
if r2>=r1 then
Writeln('Ошибка! Радиус отверстия не может превышать радиус кольца')
else
Writeln('Площадь кольца составляет ',pi*(r1*r1-r2*r2):0:4, ' кв.см')
end.