Составьте программу в Паскале. Условный оператор.

Ввести число А. Начертить вертикальную линию в левой части экрана если A<0 и в правой части экрана в противном случае. Данные A=-20 (результат в левой части), А=20 (результат в правой части).

Question

Информатика

Эля

10 ноября, 02:55

Составьте программу в Паскале. Условный оператор.

Ввести число А. Начертить вертикальную линию в левой части экрана если A<0 и в правой части экрана в противном случае. Данные A=-20 (результат в левой части), А=20 (результат в правой части).

+2

Ответы (1)

Знаете ответ на вопрос?

Васяка · Answer 1

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.