Question

составить программу вычиcления объема цилиндра при радиусах R и высоте H,по формуле V=P*R*R*H

Answer 1

Program pr;

Var V, P, R, H:real;

Begin

Writeln('Введите R');

readln(R);

Writeln('Введита H');

readln(H);

V:=3,14*R*R*H;

Writeln('V=, V');

readln;

end.

Answer 2

var

p,r,h:real;

begin

readln(p,h);

v:=Pi*sqr(r)*h;

writeln(v:5:3);

end;