Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
заразарема
08.12.2020 13:17 •
Информатика
Составить программу: 1.вычисления объема конуса(v=1/3pi r^2 h)
Показать ответ
Ответ:
LaMihaLa
03.10.2020 05:37
//PascalABC
//NaaMan
var
V, pi, h, r : real;
begin
pi := 3.1415926;
write('Укажите радиус основания конуса > ');
readln(r);
write('Введите высоту конуса > ');
readln(h);
V := 1 / 3 * pi * r * r * h;
writeln('Объем конуса V = ', V);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
katyadrogochinskaya
22.06.2021 09:02
Ввести номер месяца от 1 до 12, напечатать время года от зимы до осени. Если введенное число не является месяцем года, вывести на экран сообщение «Ошибка».Паскаль...
lebedko2004
17.03.2022 14:01
Вставьте пропущенное слово: Характерные особенности работы, среда обитания, возможности деструктивного характера, а также платформа - это все...
Oleganaft
17.03.2022 14:01
2.Перевести числа из двоичной системы счисления в десятичную: а) 10001 б) 111011 в) 1010101 г) 110110110 c решением...
Auyrey03
03.05.2023 16:39
Здрасьте,я не шарю в информатике,но тут такая дилемма,решите в Turbo Pascal Сумма чисел от 20 до 100Массив элементов 100...
FvitalikA
23.04.2021 03:36
Решение прикладных задач ...
Барбоси
27.05.2021 22:23
Задания 1. По картинкам определите вид графики...
пппп97
01.03.2021 14:46
Составьте программу, определяющую, лежит ли точка с указанными координатами внутри квадрата с углами (0,0) и (а1, b1)....
anna199015
18.04.2022 01:01
Построй таблицу истинности для следующего выражения х ۸¬y ۷¬x ۸ y...
dashakalita
24.05.2023 09:33
Дана матрица размерностью 5*5, заполненная случайными числами от 1 до 20. Требуется: а) определить максимальный элемент среди элементов, расположенных под побочной диагональю матрицы;...
GrinnySmith
19.09.2021 07:43
Дано натуральное число. Напишите программу, определяющую является ли это число чётным. Программа должна вывести сообщение «Да», если число является чётным, и вести «Нет» - в противном...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//NaaMan
var
V, pi, h, r : real;
begin
pi := 3.1415926;
write('Укажите радиус основания конуса > ');
readln(r);
write('Введите высоту конуса > ');
readln(h);
V := 1 / 3 * pi * r * r * h;
writeln('Объем конуса V = ', V);
end.