tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составьте программу в паскале.
Составьте программу в паскале. условный оператор. ввести число а. начертить вертикальную линию в левой части экрана если a< 0 и в правой части экрана в противном случае. данные a=-20 (результат в левой части), а=20 (результат в правой части).
АринаДаутова
3 28.06.2019 16:10
0
Ответы
vaierchik
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
abi182
21.04.2019 10:52
Пояему меняются фоны в ходе диалога? обьясните причину....
ала213
14.11.2019 20:55
Как нужно закрашивать под буквой «в»...
typaydevochka
19.12.2019 13:10
Какую встроенную функцию необходимо внести в ячейку ,чтобы найти максимальное значение в диапазоне ячеек в3 по в10...
марина200008
19.12.2019 13:02
Опишите однопреимущество растровой и векторной графике...
irna200
19.09.2019 15:20
Напишите 3 разных жизненых алгоритмов...
НяшнаяПанда
15.02.2021 20:07
Какие бывают виды высказываний...
milana374
13.04.2020 15:29
Озера рекордсмени за глибиною та солонистю...
birgowww
13.04.2020 15:29
Решите уравнение cos^2(x) +0,5*sin(x) =1...
krubtsova79
13.04.2020 15:29
Найди значение выражения 5⋅x−(x+8) при...
Ayannn
13.04.2020 15:29
Дополнить предложения модальными глаголами: may, might, probably, definitely, could 1 Perhaps they will go backpacking across Europe. They go backpacking across...
Популярные вопросы
Из одного города в противоположных направлениях одновременно...
2
За 8 мин, двигаясь с одинаковой скоростью, пролетел 96 км ....
1
Вычислите объём аммиака, полученного при взаимодействии 2л азота...
1
Разложить на множители : x(2)-7x+12...
1
Решить цепочку mgo-mgso4-mg(oh)2-mgo...
2
Как пишется со всей силой или со всей силы?...
2
Решите два поезда вышли в разное время на встречу друг другу...
3
11 x - 5 cos x + 2 найти производную...
2
Первая семья собрала 27 мешков картофеля ,а вторая 19 таких...
3
Отрезок абсолютно разделен точками на 6равных частей. какую...
1
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.