Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
lurudzheva
07.12.2020 23:56 •
Информатика
Написать программу вычисления полной площади и объёма параллелепипеда,
Показать ответ
Ответ:
sona673
29.07.2020 16:18
Var
A,B,C:real;
Begin
Write('Длина = ');ReadLn(A);
Write('Ширина = ');ReadLn(B);
Write('Высота = ');ReadLn(C);
WriteLn('Площадь полной поверхности = ',2*(A*B+B*C+C*A));
WriteLn('Объём = ',A*B*C)
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
nonikc1
24.04.2023 12:06
Сколько символов можно закодировать 1 байтом...
annajortsorensen
03.05.2023 02:18
Коли функція OR має значення істина...
ksiuu
19.04.2022 11:27
Пользователь компьютера, хорошо владеющий навыками ввода инвормации с клавиатуры, может вводить в минуту 100 знаков, какое количество информации может ввести пользователь в компьютере...
girldasha1
18.04.2020 11:37
Если в окне папки несколько файлов,начинающихся на одну и туже букву , для перехода к следующему файлу надо...
TinaAkh
12.03.2022 20:39
40б поясните ! в кастрюлю с 2 л воды температурой 25 °с долили 3 л кипятка температурой 100 °с. какова будет температура воды после установления теплового равновесия? теплообмен...
WinnerGDWot027
12.03.2022 20:39
Запишите уравнение реакции в соответствии со схемой: zn- znso4- zn(oh)2- zno...
diankaZe
12.03.2022 20:39
Как исплльзуют природные водоёмы казахстана...
Вадим1523
12.03.2022 20:39
Найдите закономерность и закончите числовой ряд 6 10 18 34...
kostyaluch
12.03.2022 20:39
Составить любых четыре предложения. заранее ....
unicorn1213
12.03.2022 20:39
Один из углов, которые получаются при пересечении двух прямых, равен 30°. чему равны остальные углы?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A,B,C:real;
Begin
Write('Длина = ');ReadLn(A);
Write('Ширина = ');ReadLn(B);
Write('Высота = ');ReadLn(C);
WriteLn('Площадь полной поверхности = ',2*(A*B+B*C+C*A));
WriteLn('Объём = ',A*B*C)
End.