Помогите составить программу в Паскале, выводящую на экран 50 горизонтальных полос, используя массивы
Точные условия: Написать программу на языке паскаль которая выводит на экран 50 горизонтальных полос
Для создания программы необходимо использовать режим graphABC
и циклический алгоритм.
Ответы
Ответ дал:
0
Uses GraphABC;
Var i : Integer;
Begin
For i:=1 to 50 do
Line(10,i*5,100,i*5);
end.
Var i : Integer;
Begin
For i:=1 to 50 do
Line(10,i*5,100,i*5);
end.
Вас заинтересует
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад