Составте программу вычисления объема и площади полной поверхности цилиндра с высотой H с радиусом основания R



Составте программу вычисления объема и площади полной поверхности цилиндра с высотой H с радиусом основания R

katya в категроии Информатика, вопрос открыт 28.04.2017 в 09:44

1 ответ



[email protected] , ответ добавлен 28.04.2017 в 10:04

Const
Pi = 3.14;

var
r, h: integer;
s, v: real;

begin
write('Введите r= ');
readln(r);
write('Введите h= ');
readln(h);
S := 2 * Pi * r * (h + r);
V := Pi * sqr(r) * h;
writeln('Площадь равна ', S);
writeln('Объем равен ', V);
readln;
end.

Оставлять ответы могут только авторизированные пользователи.
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.