Две окружности и прямоугольник. Ч 1
print " N a b r "
print "---------------------"
for a=20 to 70
for b=20 to 70
r=sqrt(a*b)+a/2+b
if r=int(r) then
if a<>b then
N=N+1
print N using "####",a using "####";
print b using "####",r using "####"
fi:fi
next b
next a
13 января 2024 г.
Свидетельство о публикации №224011301094