Вычислить площадь полной поверхности и объем прямого кругового цилиндра, заданного высотой и диаметромоснования. моё решение Код Pascal 1 2 3 4 5 6 7 8 9 10 11 12 13 14 program qwe; uses crt; var h,r:integer; S,V:real; begin clrscr; h:=10; r:=5; S:=2*pi*r*h ; writeln('ploshad = ',s:2:0); V:=pi*sqr(r)*h; writeln('ob`iem = ',v:2:0); end.
Про синтаксис сказать ничего не могу, вроде правильно объем вычислен верно, а при вычислении площади ты вичислил только боковую площадь цилиндра, и забыл про круглые торцы, их тоже надо прибавить, т.е. S:=2*pi*r*h+2*pi*r*r
