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

Question

Информатика

Декабринка

14 июля, 14:27

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

+4

Ответы (1)

Знаете ответ на вопрос?

Тимаха · Answer 1

Program xx;

var R, H, S, V : real;

begin

Writeln ('Введите значение радиуса основания цилиндра: ') ;

Readln (R) ;

Writeln ('Введите значение высоты цилиндра: ') ;

Readln (H) ;

V:=pi*R*R*H;

S:=2*pi*R * (H+R) ;

Writeln ('Объём цилиндра: ', V) ;

Writeln ('Площадь поверхности цилиндра: ', S) ;

end.