1. з) 28
2. \_°_/ сама не знаю.
Вторая сторона = корень из (с^2-b^2)
P= (b+корень из (с^2-b^2))*2
S=(корень из (с^2-b^2))*b
Если число в двоичной, то добавим ему незначащих нулей:
00001010-ответ
var a:array[1..10] of integer;
i,k:integer; s:real;
begin
randomize;
writeln('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(11);
write(a[i],' ');
if a[i] = i then begin s:=s+a[i]; inc(k) end
end;
writeln;
write('S = ',s/k)
end.