Напишите программу(паскаль) дан радиус окружности - вопрос №827905110 от dimabolnygin 16.05.2022 01:18

Question

Информатика: Напишите программу(паскаль) дан радиус окружности 10см найти длину окружности

dimabolnygin · Answer

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
// Можно ввести любое число
begin
var r:= ReadInteger('r =');
Writeln('P =', 2*r*arccos(-1):0:5);
end.