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

Question

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

Answer 1

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

begin
    writeln(CirclePerimeter(34.2));
end.

Comments

та ладно, когда учились в школе была

---

хотя для проверки данного утверждения ТР устанавливать не буду

---

:)