С клавиатуры выводятся радиус круга и сторона квадрата

Задание:

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

Решение:

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.

Знаете другой ответ?

Отправить свой ответ