Дан радиус окружности,найти длину окружности и площадь круга ** языке программирования...

Question

Дан радиус окружности,найти длину окружности и площадь круга на языке программирования Pascal(паскаль)

Answer 1

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

Comments

так ?

---

а там же присвоить значения надо,типо pi:=3,14

---

а тогда будет так

---

var r:integer;
begin
writeln('Введите радиус');
read(r);
writeln('Длина окружности = ',2*pi*r);
writeln('Площадь круга = ',pi*sqr(r));
end.

---

ой

---

const
pi=3,14 var
r:integer;
begin
writeln('Введите радиус');
read(r);
writeln('Длина окружности = ',2*pi*r);
writeln('Площадь круга = ',pi*sqr(r));
end.