Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
saskey
21.06.2020 16:28 •
Информатика
Определить объем и площадь боковой поверхности параллелепипеда для данных вводимых с клавиатуры a, b и h. написать программу в паскале
Показать ответ
Ответ:
alekslisalove
05.10.2020 07:51
//прога на Pascal`e
var
a, b, h : double;
begin
write ('Введите a, b, h: ');
readln (a, b, h);
writeln ('Площадь поверхности: ', 2*(a*b+a*h+b*h), ' ед^2;');
write ('Объем: ', a*b*h, ' ед^3');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
katerinamorozo2
07.02.2023 04:00
Дан массив целых чисел a(n) (n=15) заполненный случайным образом числами из промежутка [-20,50]. заменить единицей все нечетные по значению элементы данного массива ....
natalka30112000
13.11.2020 12:42
Вариант 15. 1. Что произойдет если убрать из модели OSI уровень представлений?2. Какой кабель с точки зрения пожарной безопасности лучше использоватьоптоволоконный или...
Марина0506
17.03.2020 12:13
Шпион Оберон (тест 1) Эта задача с открытыми тестами. Ее решением является набор ответов, а не программа на языке программирования. Тесты указаны в самом условии, от вас...
elizavetanosova2000
23.06.2020 20:26
учитель математики дал васе заданикюк найти среддюне арефмитическое двух числ а и б. число м называетс средним арефмитическим двух чисел а и б, если м равно ( А+Б)/2. придя...
ффырыч
01.12.2020 07:28
Сфера мен шеңбердің айырмашылығы...
lyazkaiman0309
21.03.2023 23:18
Z = -4 y = -3 for i in range(1,10): z = z + i + 1 if z%i == 2: у=z+y+i print(y)...
Danielufa
11.12.2022 11:34
перевести, два слова должно быть, двоичный и 16ти ричные коды...
дашаdaria12
08.06.2022 21:05
Бжб по информатике задания 5 ...
viamell
06.01.2023 09:26
РЕБЯТА (ЗАДАЛИ ПО ИНФОРМАТИКЕ НЕЗНАЮ КАК ДЕЛАТЬ)Дано двухмерный массив целых чисел размерностью n xm. Разработайте алгоритм и программу определения минимального числа в...
даша3643
01.02.2021 23:23
Кто приемник,кто источник? составьте словосочетания с словаря.словарь: показывает,пробует,трогает,говорит,слышит,видит...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a, b, h : double;
begin
write ('Введите a, b, h: ');
readln (a, b, h);
writeln ('Площадь поверхности: ', 2*(a*b+a*h+b*h), ' ед^2;');
write ('Объем: ', a*b*h, ' ед^3');
end.