tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу которая
Написать программу которая вычисляет объем сферы с предварительной проверкой неотрицательности радиуса сферы
Masha11781
2 20.09.2019 14:20
3
Ответы
FantomLord24
26.08.2020 23:54
Var radius: Integer;
begin
Read(radius);
if(radius<0) then
WriteLn('Радиус не может быть отрицателен')
else
Writeln(4/3* pi * exp(ln(radius) * 3));
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
AllaStepanova85
18.06.2019 22:30
1) скорость передачи данных от источника а по радиоканалу связи 2∧12 байт\с.после получения первых 4∧9 бит данных началась их ретрансляция по другому каналу в приемник...
vkakochka
18.06.2019 22:30
Выбери нужные картинки и расставь их по порядку...
ЛебедЪ
18.06.2019 22:30
Чем отличается информационная модель от натурной?...
D202
18.06.2019 22:30
:3 дано четырёхзначное натуральное число. найти произведение цифр числа. верно ли, что в данном числе нет цифры а(вводится с клавиатуры)....
andriu12252
18.05.2021 19:16
Реферат на тему виртуальная реальность ...
еьпа
05.09.2019 06:50
1. переведите числа из двоичной системы счисления в десятичную: 1110001(маленькая 2), 1011110(маленькая 2). 2. переведите числа из десятичной системы счисления в...
jeneusbwidbiehsbf
05.09.2019 07:00
Пример полной и неполной информации...
erkenova0909
20.04.2020 14:02
Книга содержит 149 страниц. На каждой странице 31 строк. В каждой строке 57 символов (включая пробелы). Найти информационный объём текста, считая, что каждый символ...
Uchenick2002goda
20.04.2020 14:02
Сколько бит памяти занимает чёрно-белое изображение (без градаций серого) шириной 60 точек и высотой 8000 точек?...
ruslanpavlov8
20.04.2020 14:02
Найти ошибки в программах:а) Написать программу на Pascal, вычисляющую площадь круга.Program Z1;Var R,S: integer;Begin;Read (R);S=3,14*SQR(R);Write (S);End 2)Составить...
Популярные вопросы
Движению, равен 0,00. 4. Самолет летит со скоростью 900 км/ч....
3
1. Какие технологии обработки используются приизготовлении изделия...
2
XII. Соблюдайте правильную артикуляцию сонаита (w] в сваз- ной...
1
Назови основные направления растениеводства и их особенности КРАТКО...
3
Придумайте описание для гача канала на ютубе...
1
В воду помещён фарфоровый шарик массой 150 грамм. Чему равна архимедова...
2
составить 5 вопросов по тексту ,,Чемодан с четырьмя ручками,,...
3
Полезную мощность движению, равен 0,06.Самолет летит со скоростью...
3
Рабочий лист. Обществознание. 8 касе. К теме «Распределение доходов....
1
Екі мәтіндегі ақпарат пен Өз пікіріңізді пайдаланып «Қазіргі жаһандану...
3
begin
Read(radius);
if(radius<0) then
WriteLn('Радиус не может быть отрицателен')
else
Writeln(4/3* pi * exp(ln(radius) * 3));
end.