Дан радиус окружности.найти длину окружности и - вопрос №8233715 от МилаяРайли06 26.07.2021 20:15

Question

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

МилаяРайли06 · 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