Вот программа, если площадь основания дана. program ; var a,b: real; begin writeln('Введите площадь основания цилиндра.'); readln(a); writeln('Введите высоту цилиндра.'); readln(b); writeln('Объем цилиндра равен ', a*b, '.'); end.
Если площадь основания не дана, а дан радиус основания цилиндра:
program ; var a,b,c: real; begin writeln('Введите радиус основания цилиндра.'); readln(a); writeln('Введите высоту цилиндра.'); readln(b); writeln('Объем цилиндра равен ', Pi*sqr(a)*b, '.'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
