Question

Напишите на паскале программу, вычисляющую длину окружности, площадь круга одного и того же радиуса по формулам: c = 2пр, s=пр²

Answer 1

var l,r,s:integer;
begin
write('Введите радиус:'); readln(r);
l:=2*pi*r;
s:=pi*sqr(r);
writeln('Длина окружности = ', l:2:2);
writeln('Площадь круга = ', s:2:2); readln;
End.