Как составить программу вычесления площади полной поверхности цилиндра
Answers & Comments
ubunt
Var r,h,s: real; begin write('Введите радиус: '); readln(r); write('Введите высоту: '); readln(h); s:=4*pi*r*(h+r); writeln('Полная площадь цилиндра равна ',s); end.
Answers & Comments
begin write('Введите радиус: ');
readln(r);
write('Введите высоту: ');
readln(h);
s:=4*pi*r*(h+r);
writeln('Полная площадь цилиндра равна ',s);
end.