Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Soffik0611
19.02.2020 20:42 •
Информатика
Составьте программу в паскале. условный оператор. ввести число а. начертить вертикальную линию в левой части экрана если a< 0 и в правой части экрана в противном случае. данные a=-20 (результат в левой части), а=20 (результат в правой части).
Ответ:
СвятаяSaints
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 оценок)
Популярные вопросы: Информатика
imuraveva
11.03.2020 00:40
9. к какому типу программ относят служебные программы? a) прикладным b) системным c) инструментальным d) ни к одном...
shopiakprod
13.09.2022 13:58
Что выполняет команда md c: \one\tvo...
jannamkrtchyan
30.01.2021 20:15
10: 2+5=10 (40-20)*(6: 3)=40 составьте алгоритм...
Torlate
14.08.2020 03:47
Какое негативное влияние оказывает компьютерная мышь?И как от этого отгородиться?...
марго409
12.07.2020 16:54
Данные -это закодированная и представленная на носителе информация в виде : текста,...
maarusya
21.10.2021 09:26
Какое минимальное основание имеет система счисления если в ней записаны 123,222,111,241....
Mashirachan
31.01.2021 14:14
Что можно добавить в презентацию про твиттер...
Ekateika
31.01.2021 14:14
Сколько информации (в кбайтах) содержит текст, состоящий из 900 символов, если известно, что каждый символ кодируется двумя байтами. ответ округли до сотых....
DaiDZ
17.04.2020 06:45
Аян собирает бусы из 14 бусин . она нанизывает бусины на нитку в таком порядке : 1красная ,1 белая и 2 зелёные.сколько бусин каждого цвета будет в бусах если аян продолжит...
Андрей3482
17.04.2020 06:45
Надо придумать стихотворение о весне, что бы это можно было спеть. ! по музыке придумываем задали сочинить и оформить песню....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.