Напишите программу(паскаль) дан радиус окружности - вопрос №827905110 от sebasogo 05.12.2021 05:55

Question

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

sebasogo · Answer

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