Question

Construiți un program in Pascal astfel încît sa calculeze si sa afiseze pe ecran lungimea si aria cercului cu raza r, aria dreptunghiului cu laturile a si b,volumul paralelipidului dreptunghic cu laturile a,b,c

Answer 1

var r,pi,a,b,c: Integer;
begin
  write('r= '); readln(r);
  writeln('lungimea cercului= ',2*pi*r,' Aria cercului= ', pi*r*r);
  write('a= '); readln(a);
  write('b= '); readln(b);
  writeln('Aria dreptunghiului= ',a*b);
  write('a= '); readln(a);
  write('b= '); readln(b);
  write('c= '); readln(c);
  writeln('Volumul paralelipipedului= ',a*b*c);
end.