Определить какая из двух фигур - круг или квадрат -имеет меньшую площадь .Известно,что сторона квадрата a ,радиус круга r .вывести на экран название и значение площади меньшей фигуры
программу надо составить, если я так понял?
дада)
Вот здесь в чем отличие в файле программа выводит значение площади большей фигуры, а у вас наоборот поменяете знаки и написания и всё будет ок.
Program ploshad; var a,r,s1,s2:real; begin write ('a=');readln(a) ;write('r=');readln(r); s1:=pi*sqr(r); s2:=sqr(a); if s1>s2 then writeln('Krug',' S=',s1:2:2) else if s1=s2 then writeln ('Ploshadi ravni') else if s1readln end.