Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
настякотик13
27.08.2022 17:57 •
Информатика
Разработать программу для расчёта площади поверхности и объёма шара известного радиуса.
Показать ответ
Ответ:
катя12362
22.06.2020 09:22
Uses crt;
var r:integer;
v,s:real;
begin
readln(r);
s:=4*pi*r*r;
writeln(s);
v:=4/3*pi*r*r*r;
writeln(v);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Виолетта2984
14.04.2023 22:11
4. Побудуйте математичну модель задачі. Задача. У магазин привезли P кг яблук, а груш - упразівбільше. Скільки всього фруктів привезли в магазин?...
IgorGr1ef
07.03.2023 07:33
112 123 1234 12345 нужно вывести это в pascal...
timon201
20.12.2021 10:37
Напишите наименьшее число х для которого ЛОЖНО высказывание: НЕ ((х≥100) И НЕ ( х кратно 4)) ИЛИ НЕ (х 125)...
mayorovagelya
11.03.2022 19:31
Добрый день Вычислить объем в килобайтах если изображение состоит из 580*490 точек и глубина цвета равна 17 в ответе запишите только целое число...
timurev
31.01.2021 13:00
очень нужно! Из двух массивов [Aij] m, n и [Ci] m построить массив [Bi] m, элементы которого определить путем умножения каждого элемента массива С на сумму элементов соответствующего...
vladislav4239
05.11.2022 05:04
Объект программирования в среде Scratch называется НАПИШИТЕ К СОРУ...
alekss84
16.08.2021 04:37
написать программу на языке С++, ставлю :Начав тренировки, спортсмен пробежал М км. Каждый день он увеличивал норму на Р% нормы предыдущего дня. В какой день спортсмен впервые...
DariKetrin
10.12.2022 01:29
Нарисуйте в паскале кота...
primarina2000p09pnc
04.10.2020 13:09
1. Система счисления - это ... а) знаковая система, в которой приняты определѐнные правила записи чисел. б) совокупность знаков в) совокупность правил написания чисел. 2. Переведите...
nsalexandrovna
27.06.2020 15:21
Составьте таблицу истинности для логической функции X = (А /\ ¬C → B) /\ (C↔ B\/A) в которой столбец значений аргумента А представляет собой двоичную запись числа 200, столбец...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var r:integer;
v,s:real;
begin
readln(r);
s:=4*pi*r*r;
writeln(s);
v:=4/3*pi*r*r*r;
writeln(v);
end.