Question

Program ,limbaj de programare "Pascal":Cititi raza cercului in variabila r,apoi calculati si afisati perimetrul si aria cercului.Va rog frmos acum , pe lung .

Answer 1

var r,p,a:real;
const pi=3.141;
begin
write('Raza cercului: ');
read(r);
p:=2*pi*r;
a:=sqr(pi)*r;
writeln('Perimetrul cercului este: ',p,' si aria: ',a);
end.