Question

Составить программу, решающую следующую задачу: вычислить длину окружности L и площадь круга S одного и того же заданого радиусв R

Answer 1

Var r,L,S:real;
begin
read (r);
L:=2*3.14*r;
S:=4*3.14*r*r;
write('длина...=',L);
write('площадь...=',S);
End.

Answer 2

спс)