Определить какая из двух фигур - круг или квадрат -имеет меньшую площадь .Известно,что сторона квадрата a ,радиус круга r .вывести на экран название и значение площади меньшей фигуры
Определить какая из двух фигур - круг или квадрат -имеет меньшую площадь .Известно,что сторона квадрата a ,радиус круга r .вывести на экран название и значение площади меньшей фигуры
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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 s1<s2 then writeln ('Kvadrat',' S=',s2:2:2);
readln
end.