Напишите программу.(в Паскале) Дан диаметр окружности. Найти ее длину и площадь круга.

Question

Напишите программу.(в Паскале) Дан диаметр окружности. Найти ее длину и площадь круга.

Answer 1

Var
d:real;
begin
read(d);
writeln(' Длина окружности = ',pi*d );
writeln(' Площадь круга  = ',(pi*d*d)/4 )
end.