Даны сторона квадрата и радиус окружности. составить программу определяющую у какой фигуры площадь больше

Question

Информатика

Катеринка

12 марта, 05:31

Даны сторона квадрата и радиус окружности. составить программу определяющую у какой фигуры площадь больше

+3

Ответы (1)

Знаете ответ на вопрос?

Артур · Answer 1

Var

a, r: real;

begin

readln (a, r) ;

a : = a * a;

r : = Pi * r * r;

Writeln ('Sa = ', a, ' Sr = ', r) ;

if a > r then

Writeln ('Sa > Sr')

else Writeln ('Sr > Sa') ;

end.