Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Составить программу нахождения наибольшей из 2 площадей: квадрата со стороной а или круга с радиусом r. в Pascal abc СРОЧНО!

Ответ оставил Гость

Program PR1;
uses crt;
var skv,skr:real;
a,r:integer;
Begin
clrscr;
writeln(Введите сторону квадрата);
readln(a);
writeln(Введите радиус круга);
readln(r);
skv:=sqr(a);
skr:=pi*sqr(r);
if skv>skr then writeln(Площадь квадрата >)
else writeln(Площадь круга>);
end.