Pascal. Задача 5-5

Вывести таблицу ASCII по 16 символов в 16 строках.

Примечание: Символы имеют порядковые номера, соответствующие таблице ASCII. Применить функцию chr.

Решение

var
  i, j, code: integer;
begin
  code := 0;
  for i := 1 to 16 do begin
    for j := 1 to 16 do begin
      write(chr(code));
      Inc(code);
      end;
    writeln;
  end;
end.

◄▲►