Question

Найти длину окружности L и площадь круга S заданного радиуса R: L = 2·π·R, S = π·R 2

Answer 1

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