Дан радиус окружности.найти длину окружности - вопрос №8233490 от qwerty878 04.01.2023 18:35

Question

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

qwerty878 · 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