Задание:
Turbo PascalНаписать программу вычисления объема цилиндра. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенныепользователем, выделены полужирным шрифтом).
Решение:
Uses crt; var r,h: real; beginwrite ('Радиус основания (см)='); read (r); write (#'Высота цилиндра (см)='); read (h); writeln ('Объем цилиндра ',pi*r*r*h: 0:2,' куб. См.'); end.
Знаете другой ответ?