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

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

Question

Информатика

Евдения

25 марта, 21:43

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

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

+4

Ответы (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.