Question

Написать программу для нахождения суммы S в закрашенной части

Answer 1

Зная длину и ширину:
var i,j,d,a,S1,S2:real;
begin
writeln ('Введите длину и ширину фигуры');
readln (i,j);
S1:=i*j;
d:=S1/2;
a:=d/4;
S2:=d+a;
writeln ('Площадь закрашенной части = ',S2);
end.