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