Question

В Турбо Паскалі виконайте задачу!
Використовуючи підпрограму обчислити довжину кола радіуса 34.2 м.

Answer 1

function CirclePerimeter(r: real): real;
begin
    CirclePerimeter := 2 * Pi * r;
end;

begin
    writeln(CirclePerimeter(34.2));
end.

Answer 2

Нет константы Pi в ТурбоПаскаль