Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
sentyakovv
19.05.2020 23:45 •
Информатика
Составьте программу которая нарисует в паскаль абс треугольную призму..
Показать ответ
Ответ:
Ḱặрặṃềӆьҟӑ
04.10.2020 00:28
//PascalABC.NET 3.2 сборка 1318
uses
GraphABC;
const h=300;
begin
maximizewindow;
line(0,100,400,100);
line(0,100,200,300);
line(400,100,200,300);
line(0,100,0,100+h);
line(400,100,400,100+h);
line(200,300,200,300+h);
line(0,100+h,400,100+h);
line(0,100+h,200,300+h);
line(200,300+h,400,100+h);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
vanuhask12
02.08.2021 07:18
Пацаны, девчёнки го ответ мы же все братья друг другу)) дайте полные развернутые ответы на вопросы. какие системы программирования вам известны? опишите их назначение....
nodirkamolov
16.05.2022 23:57
C++, ! описать функцию calc(a,b,op) вещественного типа, выполняющую над ненулевыми вещественными числами a и b одну из арифметических операций и возвращающую ее результат....
Dashaqqq123
05.01.2020 06:43
Суммативное оценивание за раздел робототехника 4 класс...
frankinshtein228
01.05.2020 06:48
1. напишите наименьшее целое число х, для которого истинно высказывание: не (х 7) и (х четное)2. напишите наименьшее целое число х, для которого истинно высказывание:...
Victoriahamidul
01.05.2023 06:18
В диапазон ячеек А1:А19 введите числа в интервале [-6,28; +3,14] с шагом 0,52. В ячейках В1:В19 вычислите Y= cos(2x). Построить точечную диаграмму функции Y. Дайте...
Razzey
17.05.2020 05:45
Слёзно с информатикой...
rimanchik
23.04.2023 22:47
Запиши результат выполнение программы: print(11*7)...
87056231946
29.12.2022 09:44
Определи что выполняет эта программа ...
Камилла200504
03.11.2021 18:36
Запиши верный ответ, если дан алгоритм: a1:=5/(17x)a2:=a1/xa3:=a2/xa4:=a3/xy:=a1+a4 ответ (для переменной используй латинскую раскладку...
jyljokgorsheni1
30.01.2021 21:58
Требуется заполнить массив именно так: X = [3 4 7 8 11 12]. Какой оператор надо поместить в тело цикла вместо многоточия? for k:=1 to 6 do begin ... end; X[k] :=...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses
GraphABC;
const h=300;
begin
maximizewindow;
line(0,100,400,100);
line(0,100,200,300);
line(400,100,200,300);
line(0,100,0,100+h);
line(400,100,400,100+h);
line(200,300,200,300+h);
line(0,100+h,400,100+h);
line(0,100+h,200,300+h);
line(200,300+h,400,100+h);
end.