Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
прррр10
11.06.2020 09:55 •
Информатика
Реализовать программу, вычисляющею и выводящую объём шара по введённому радиусу - r. входные данные выходные данные 2 > 33,49 3 > 113,03 1 > 4,18
Показать ответ
Ответ:
helgagrantt
19.08.2020 13:49
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var r:=ReadReal;
Writeln(4/3*pi*r*r*r:0:2)
end.
0,0
(0 оценок)
Ответ:
alinka393
19.08.2020 13:49
//Pascal ABC, версия 3.0.1.35 (17.4.2007)
var
v, R: real;
begin
writeln('Введите радиус R=');
readln(R);
v:=(4/3)*pi*(R*R*R);
writeln(' Объем равен = ' ,v:0:2);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ketiler13
01.04.2020 18:13
Ваша команда участвует в научном конкурсе. Участники команды проживают в разных городах. Вам постоянно нужно обсуждать и показывать по видео детали вашего проекта и синхронизировать...
АнтонХабаров
20.08.2020 03:20
Напишите программу, которая получает с клавиатуры два целых числа и находит наибольшее и наименьшее из них. Пример:Введите два числа 1 5Наименьшее число 1Наибольшее число 5Язык...
tweetyz
22.12.2020 16:07
В программу вводятся координаты x и y (вещественные числа). Определить, принадлежит ли точка с координатами (X,Y) заштрихованной области плоскости. Составить алгоритм решения...
Madinauakhitova
11.09.2022 04:21
Дан фрагмент электронной таблицы, в первой строке которой записаны числа, а во второй — формулы.авсd1)58412)=а1-с1=в1-а1=c1-d1какая из перечисленных ниже формул должна быть...
DanIEL982
22.09.2021 18:25
Решить на языке с++ (35 )длина выражена в сантиметрах выразить в дюймах ( 1 дюйм=2.5 см) приобрели а шт книг по цене в руб. за шт. и с шт. тетрадей по цене d руб. за шт. определить...
edkoll79p04ynu
14.08.2020 06:25
Свопросамм по информатмке сделайте все....
сармановафакизат
12.06.2021 22:53
Спитоном. такая: написать программу, которая вводит три числа и выводит да , если числа являются членами арифметической прогрессии, и нет в противном случае...
svetacok
10.12.2021 20:01
Составить программу для определения количества отрицательных чисел. дано: n целых чисел х, вводимых с клавиатуры....
ппппппп25
25.11.2021 20:48
Какой это алгоритм Если на дворе снег, май будем кататься на санках...
oksana12ua
13.09.2021 21:11
Для какого из указанных значений числа X ЛОЖНО выражение (X 12) ИЛИ НЕ с объяснением...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var r:=ReadReal;
Writeln(4/3*pi*r*r*r:0:2)
end.
var
v, R: real;
begin
writeln('Введите радиус R=');
readln(R);
v:=(4/3)*pi*(R*R*R);
writeln(' Объем равен = ' ,v:0:2);
end.