Question

Паскаль.

Найдите Sкруга и длину окружности. Числа не даны.

Там начало : Program:zadacha333;

Var..

Answer 1

var S,R,c: real;

begin

writeln('Введите радиус круга: ');

readln(R);

S:=Pi*sqr(R);

c:=2*Pi*R;

writeln('S = ',S);

writeln('c = ',c);

end.