Перевести числа в их символьное представление - 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»
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
СОХРАНИТЬ ССЫЛКУ