Question

Elaborati un program pascal care calculeaza lugimea cercului.

Answer 1

Răspuns:

Explicație:

Procedure cerc(r:integer);

var L:real;

const pi=3.14;

begin

L:=2*pi*r;

write(L);

end;

var

r:integer;

begin

read(r);

cerc(r);

end.