С клавиатуры выводятся радиус круга и сторона квадрата. Определить что больше площадь круга или площадь квадрата

Question

Информатика

Паха

1 февраля, 18:19

С клавиатуры выводятся радиус круга и сторона квадрата. Определить что больше площадь круга или площадь квадрата

+3

Ответы (1)

Знаете ответ?

Лаврентьич · Answer 1

var

r, a : real;

begin

read (r, a) ;

if pi * sqr (r) > sqr (a) then writeln ('Kruga')

else if pi * sqr (r) < sqr (a) then writeln ('Kvadrata')

else writeln ('=') ;

end.