Дан радиус окружности.найти длину окружности - вопрос №8234392 от pinelike 08.09.2020 00:20

Question

Информатика: Дан радиус окружности.найти длину окружности и площадь круга(код pascal) !

pinelike · Answer

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var r:=ReadReal('r=');
Writeln('С=',2*Pi*r:0:5,', S=',Pi*r*r:0:5)
end.

Пример
r= 3.5
С=21.99115, S=38.48451