Перевести числа в их символьное представление - Pascal ABC

Формулировка задачи:

Датчик случайных чисел генерирует числа от 0 до 255.Нужно перевести числа в их символьное представление.Остановка программы- появление символа "*".Сколько символов было напечатано.Помогите дальше
uses crt;
var 
i,a:integer;
 
begin
randomize;
 
for i:=0 to 255 do begin
      a:=random(255);
      writeln(a,' - ',chr(a));
 
 
end;
end.

Код к задаче: «Перевести числа в их символьное представление - Pascal ABC»

textual
uses crt;
var k:integer;
    a:byte;
begin
randomize;
a:=0;
k:=0;
repeat
a:=random(256);
write(chr(a));
k:=k+1;
until chr(a)='*';
writeln;
write('Получено символов=',k)
end.

7   голосов, оценка 3.714 из 5


СОХРАНИТЬ ССЫЛКУ