Question

Дан радиус R окружности. Найти ее длину L и площадь S круго, ограниченного этой окружность, учитывая, что L=2*п*R, S=п*R квадрат * сравнить длину окружности и площадь круга и вывести наибольшее на екран.

Answer 1

program rad;

var R, L, S, P:real;

begin

read (R);

p:=3.14;

L:=2*P*R;

S:=P*R*R;

if S>L then write (s) else write (l);

end.