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

Найти длину окружности L и площадь круга S заданного радиуса R:
L = 2·π·R, S = π·Rв квадрате
В качестве значения π использовать 3.14.
В PascalABC

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

Var l,s,p,r:real;
begin
writeln(Введите радиус);
read(r);
p:=3.14;
l:=2*p*r;
s:=p*sqr(r);
write(Длина окружности равна ,l, так же площадь круга равна ,s);
end.