Turbo Pascal Написать программу вычисления объема цилиндра. Ниже представлен...

Question

Turbo Pascal

Написать программу вычисления объема цилиндра. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).

Вычисление объема цилиндра.

Введите исходные данные:

Радиус основания (см) = 5

Высота цилиндра (см) = 10

Объем цилиндра 1570.80 куб.см.

Для завершения работы программы нажмите .

Comments

на каком языке

Answer 1

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

Comments

еще readln забыл, это же turbo

---

Спорить не буду, я вообще pascal не люблю, и не знаком с нюансами среды turbo pascal.