Составьте программу в Паскале. Условный оператор. Ввести число А. Начертить вертикальную линию в левой части экрана если A меньше 0 и в правой части экрана в противном случае. Данные A=-20 (результат в левой части), А=20 (резул...
Составьте программу в Паскале. Условный оператор.
Ввести число А. Начертить вертикальную линию в левой части экрана если A<0 и в правой части экрана в противном случае. Данные A=-20 (результат в левой части), А=20 (результат в правой части).
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы