Паскаль.Найдите Sкруга и длину окружности. Числа не даны.Там начало :...

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.

Comments

Огромное спасибоо)