Напишите программу, вычисляющую объем цилиндра

Question

Информатика

Авдотьюшка

26 ноября, 14:23

Напишите программу, вычисляющую объем цилиндра

+3

Ответы (1)

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

Апраксин · Answer 1

Var S, Sc, pi, r, h : real;

begin

pi : = 3.14;

write ('Введите радиус круга, лежащего в основании цилиндра: ') ;

readln (r) ;

S : = pi * r * r;

write ('Введите высоту цилиндра: ') ;

readln (h) ;

Sc : = h * S;

write ('Площадь круга равна ', Sc : 0 : 2) ;

end.