Ответы и объяснения

  • Sky09
  • профессор
2013-06-24T13:46:08+00:00

uses crt;
var

  v,r,h:real;
begin
  write('R='); readln(r);
  write('h='); readln(h);
  v:=pi*sqr(r)*h;
  write('V=',v);
end.

  • 4MD
  • отличник
2013-06-24T17:54:04+00:00

V - объём цилиндра
Число Пи = 3,14
Язык программирования: Паскаль

var
V, r, h : real;
begin
readln (r);
readln (h);
V := 3.14 * SQR(r) * h;
writeln (V)
end.