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

Напишите на паскале программу, вычисляющую длину окружности, площадь круга одного и того же радиуса по формулам: c = 2пр, s=пр²

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

Var l,r,s:integer;
begin
write(Введите радиус:); readln(r);
l:=2*pi*r;
s:=pi*sqr(r);
writeln(Длина окружности = , l:2:2);
writeln(Площадь круга = , s:2:2); readln;
End.