Добавил:
bagiwow
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
Uses Crt;
Var i,j:Byte;
Begin
For i:=0 to 15 Do
Begin
TextBackGround(i);
ClrScr;
For j:=0 to 15 Do
Begin
TextColor(j);
GotoXY(10,4+j);
Write('”® ',i,'’ҐЄбв ',j);
End;
ReadKey;
End;
End.
Var i,j:Byte;
Begin
For i:=0 to 15 Do
Begin
TextBackGround(i);
ClrScr;
For j:=0 to 15 Do
Begin
TextColor(j);
GotoXY(10,4+j);
Write('”® ',i,'’ҐЄбв ',j);
End;
ReadKey;
End;
End.