1. c)
2. d)
3. d)
4. d)
5. b)
6. d)
7. a)
8. a)
9. ядро вычеслений и операций.
дальше долго)) я сам на уроке))
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var r1:=abs(ReadReal('Наружный радиус кольца'));
var r2:=abs(ReadReal('Внутренний радиус кольца'));
if (r1*r2>0) and (r1>r2) then
Writeln('Площадь кольца ',pi*(sqr(r1)-sqr(r2)))
else Writeln('Неверные данные')
end.
<u><em>Тестовое решение:</em></u>
Наружный радиус кольца 25
Внутренний радиус кольца 21.8
Площадь кольца 470.484915801607
просто напиши свою дату по клеткам
Зона с охватом Wi-Fi ну как то так
<span>var
i, p, s: integer;
begin</span>
<span> s:=0;
</span> p:=1;
for i:=15 to 20 do
<span>
begin
</span><span>s:=s+i;
p:=p*i;
</span> end;
writeln('s=',s);
writeln('p=',p);
end.