Как составить программу вычесления площади полной поверхности цилиндра

Question

Как составить программу вычесления площади полной поверхности цилиндра

Answer 1

Var r,h,s: real;
  begin  write('Введите радиус: ');
  readln(r);
  write('Введите высоту: ');
  readln(h);
  s:=4*pi*r*(h+r);
  writeln('Полная площадь цилиндра равна ',s);
end.

Comments

s:=4*pi*r*(h+r); измени

---

на s:=2*pi*r*(h+r);

---

Хорошо,спасибо.