Question

Найти длину окружности L и площадь круга S заданного радиуса R: L =2*п* R, S=*R квадрат 2 вывести на екран наименьшее значение

Answer 1

Ответ:

program RoundLS;

uses

 Math;

var

 R, L, S: Double;

begin

 Write ('Введите радиус: ');

 ReadLn (R);

 L := 2 * Pi * R;

 S := Pi * R * R;

 if L < S then

   WriteLn ('Длина окружности = ', L :15 :5)

 else

   WriteLn ('Площадь круга = ', S :15 :5);

 ReadLn;

end.