Построить блок схему и разработать программу на языке Паскаль: Найти площадь окружности, вписанной в равнобедренную трапецию, с
Построить блок схему и разработать программу на языке Паскаль:
Найти площадь окружности, вписанной в равнобедренную трапецию, с основаниями a b и боковой стороной с. Я попытался написать программу, не уверен в правильности. Моя ахинея: const pi=3.14;
var figure: byte; a,b,r,c,f:real; f:real:=sqrt(a*b) begin write(0.5*f); readln(d); s:= pi * sqr(d) / 4 end.