Написать программу на языке Паскаль. Известна сторона квадрата А и радиус круга R.Какая из фигур имеет большую площадь?
Answers & Comments
PopCop312
Var a,r:real; begin read(a,r); if (a*a>pi*r*r) then writeln('Квадрат') else if (a*a<pi*r*r) then writeln('Круг') else writeln('Площади равны'); end.
Answers & Comments
begin
read(a,r);
if (a*a>pi*r*r) then writeln('Квадрат')
else if (a*a<pi*r*r) then writeln('Круг')
else writeln('Площади равны');
end.