program pascal;
const
Pi = 3.14; { Создаем константу числа Pi }
var
r:real;
begin
writeln('Введите радиус круга :');
readln(r);
writeln('Длина окружности = ',2*Pi*r);
end.
Объяснение:
program pascal;
const
Pi = 3.14; { Создаем константу числа Pi }
var
r:real;
begin
writeln('Введите радиус круга :');
readln(r);
writeln('Длина окружности = ',2*Pi*r);
end.
Объяснение: