var r:real;
begin
write ('Введите радиус круга: ');
read(r);
writeln ('Площадь круга равна: ', pi*sqr(r):0:3);
writeln ('Длина окружности равна: ', 2*pi*r:0:3);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var r:real;
begin
write ('Введите радиус круга: ');
read(r);
writeln ('Площадь круга равна: ', pi*sqr(r):0:3);
writeln ('Длина окружности равна: ', 2*pi*r:0:3);
end.