Question

Напишите программу для решения геометрической задачи.
1. Найдите длину окружности и площадь круга заданного радиуса.

Answer 1

Если с заданным радиусом то вот


program circle;const pi=3.14;var r, c, s: real;beginwriteln('Вычислени длины и площади');r:=8;c:=2*pi*r;s:=pi*r*r;writeln('c=', c:6:4);writeln('s=', s:6:4);end.