Задали задачу: выводить кодовую таблицу по 10 символов, спрашивая продолжать ли дальше.
Создала программу, в которой при вводе с клавиатуры любого символа выводится код.. вот:
Program pr1;
Uses CRT;
var i,n:integer;
c:char;
Begin
ClrScr;
Repeat
c:=readkey;
n:=ord(c);
write(c,'=',n,' ');
Until n=27;
Readln;
End.
27-это Esc.. т.е ввожу символы, пока не нажму Esc.. А вот как по 10 символов выводить да ещё и спрашивать..вот этого понять не могу.. Пожалуйста помогите..