Паскаль: Составить функцию нахождения объема цилиндра по его радиусу основания r и высоте. С помощью данной функции вычислить объемы для N цилиндров.
Паскаль:
Составить функцию нахождения объема цилиндра по его радиусу основания r и высоте.
С помощью данной функции вычислить объемы для N цилиндров.
Ответ(ы) на вопрос:
program qq;
var v,r,h:real;
begin
write('Введите значение r');
readln(r);
write('Введите значение h');
readln(h);
v:=pi*sqr(r)*h;
write('Объем цилиндра =',v:6:2);
end.
Не нашли ответ?
Похожие вопросы