Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
sabitaiganym
10.06.2020 04:09 •
Информатика
Составьте программу в паскале. условный оператор. ввести число а. начертить вертикальную линию в левой части экрана если a< 0 и в правой части экрана в противном случае. данные a=-20 (результат в левой части), а=20 (результат в правой части).
Ответ:
Timurrovt456
02.10.2020 14:14
Uses graphabc;
var a:integer;
begin
readln(a);
setwindowsize(640,640);
if(a<0) then
begin
Line(100,100,100,600);
end
else
Line(600,100,600,600);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ванька68
31.07.2021 07:01
Сколько бит в памяти компьютера понадобится для размещения 10 символов информации...
Stanmashyna201
31.07.2021 07:01
Заданы числа a и b. определить, эти числа одного или разных знаков...
Stefan123005
31.07.2021 07:01
Составить блок-схему алгоритма подсчета точек в тексте. признак конца текста «? »...
Efimenko34
09.06.2020 20:26
Как найти сумму элементов 1 строки? program sbb; uses crt; var i,j,s: integer; a: array[1..5,1..10] of integer; begin for i: =1 to 5 do begin for j: =1 to 10 do begin...
76938
22.01.2021 12:45
Написать сказку-небылицу по информатике для 4 класса....
Kotofeyka5585
31.12.2022 02:57
Вкакой системе исчисления записаны 145 255q 125h 1110001110b ?...
Mishcka10200
09.05.2021 18:38
Определи, что является надсистемой, выбери верный ответ. ДомСтенаКрышаФундамен...
dashaponomarev4
19.06.2021 06:20
Световое табло состоит из лампочек, каждая из которых может находиться в двух состояниях («включено» или «выключено»). Какое наименьшее количество лампочек должно...
GAFur1111
09.07.2021 18:40
периметр треугольника равен 130 см, а длины сторон пропорциональны числам 7,9,10.Найти длину меньшей стороны треугольника...
Vania54
15.04.2023 06:52
-3x _12 розв яжіть рівняння ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a:integer;
begin
readln(a);
setwindowsize(640,640);
if(a<0) then
begin
Line(100,100,100,600);
end
else
Line(600,100,600,600);
end.