Программа вычисляющая объём и площадь полной поверхности цилиндра

Question

Информатика

Иулий

8 апреля, 22:33

Программа вычисляющая объём и площадь полной поверхности цилиндра

+5

Ответы (1)

Знаете ответ?

Стефанида · Answer 1

Var r, h, s, v: real;

begin write ('Введите радиус: ') ;

readln (r) ;

write ('Введите высоту: ') ;

readln (h) ;

s:=4*pi*r * (h+r) ;

v:=pi*r*r*h;

writeln ('Полная площадь цилиндра равна ', s) ;

writeln ('Объем цилиндра равен ', v) ;

end.