[Hannibal]

мне нужно чтобы выводило на экран 15 разных символов.все вроде написал а выводит только 12 и то одинаковых

Код:

program nomer3;

{$APPTYPE CONSOLE}

uses
  SysUtils;
    const    ChDigits : string='a..z';
    var     Digits : array [0..15] of char absolute ChDigits;
         i:byte;
begin
Writeln('kodu dec symvol');
for i:=0 to 15 do write(Digits[i], '  ');
readln
end.

Admin: Пользуемся тегами!

[Aristarh Dark]

Ты строку-константу неправильно задаешь.

[Hannibal]

спасибо.я уже понял свою ошибку