Таблица символов

Наш опрос
Оцените мой сайт Отлично Хорошо Неплохо Плохо Ужасно Результаты \| Архив опросов Всего ответов: 31

Приветствую Вас, Гость · RSS

19.04.2024, 05:28

Страница 1 из 1 1
Модератор форума: DenzeL

Таблица символов

Дата: Пятница, 28.01.2011, 17:29 | Сообщение # 1

Новичок

Группа: Администратор

Сообщений: 9

Статус:

program kkk;
uses crt;
Var a:array [0..255] of integer;
var
k:Byte;
i:integer;
begin
a[0]:=0;
for i:=1 to 255 do
a[i]:=a[i]+1;

for k:=0 to 255 do
write(chr(k) : 2);
readln;
end.

Дружелюбный эгоист