Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

ой

Answer 6

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