Напищите программу, котораявычисляет длину окружности и площаль круга, если известен ражиус окружности
язык?
паскаль
var r:real;
begin
write ('Введите радиус круга: ');
read(r);
writeln ('Площадь круга равна: ', pi*sqr(r):0:3);
writeln ('Длина окружности равна: ', 2*pi*r:0:3);
end.
program circle;
var
rad : real;
writeln(' Введите радиус окружности: ');
readln(rad);
writeln(' Длина окружности : ', PI*2*rad, '.');
writeln(' Площадь окружности : ', PI*rad*rad, '.');