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

Question

Информатика

Лавруха

17 апреля, 16:26

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

+1

Ответы (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.