Question

Turbo PascalНаписать программу вычисления объема цилиндра. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).Вычисление объема цилиндра.Введите исходные данные:Радиус основания (см) = 5Высота цилиндра (см) = 10Объем цилиндра 1570.80 куб.см.Для завершения работы программы нажмите <Enter>.

Answer 1

Uses crt;
var r,h:real;
begin
write('Радиус основания (см) = ');
read(r);
write(#'Высота цилиндра (см) = ');
read(h);
writeln('Объем цилиндра ',pi*r*r*h:0:2,' куб.см.');
end.