Добавил:
bagiwow
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
Uses Crt;
Var i: Byte;
Begin
ClrScr;
For i:=100 to 255 Do
Write(i:4,Chr(i):4);
ReadKey;
End.
Var i: Byte;
Begin
ClrScr;
For i:=100 to 255 Do
Write(i:4,Chr(i):4);
ReadKey;
End.