Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.