uses crt;
var a, b, h, f, x:real;
begin
writeln ('введите a, b');
readln (a, b);
if a>b then h:=a-b
else h:=b-a; x:=h;
f:=sin(x)*sin(x);
writeln;
writeln('|---|------|');
writeln('|x', ' | ' ' f |');
writeln('|---|------|');
writeln('|',x,' |', f:6:2,'|');
writeln('|---|------|');
x:=x+h;
end.<span>
</span>
A:=3,14*r*r, где радиус ты должна указать
A*b+c*d=1
a*b c*d
0 + 1 3реш
1 + 0 3реш (слагаемые просто поменяются)
1 + 1. 1реш
a*b=0 c*d=1
a b c d
0 0 1 1
1 0
0 1
a*b=1 c*d=1
a b c d
1 1 1 1
ответ:7реш.