IronAlma
Профи
(565)
13 лет назад
program z212;
uses crt;
var r,c,s:real;
begin
writeln('Вычисление длины окружности и ее площади');
writeln('Введите радиус окружности');
readln(r);
c:=2*pi*r;
s:=2*pi*r*r;
writeln('Длина окружности: ',c:3:5);
writeln('Площадь окружности: ',s:3:5);
end.