Question

Помогите пожалуйста. Нужно решить через программу Pascal ABC
Определить объем цилиндра и площадь его полной поверхности, если известны радиус основания и высота цилиндра.

Формулы: V=πr2h; S=2πr(r+h).
2.Вычислить периметр и площадь ромба, у которого сторона и меньшая диагональ равны а. ()

Answer 1

1:
var r, h: real;
begin
  readln(r, h);
  writeln('V = ', pi * r * r * h);
  writeln('S = ', 2 * pi * r * (r + h));
end.

2:
var a: real;
begin
  writeln('P = ', 4 * a);
  writeln('S = ', a * a * sqrt(3) / 2);
end.