Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
program p06;
uses crt;
var c: char;
begin
clrscr;
repeat
c:=readkey;
write(' ', c, ' - ', ord(c));
until ord(c)=27;
end.
uses crt;
var c: char;
begin
clrscr;
repeat
c:=readkey;
write(' ', c, ' - ', ord(c));
until ord(c)=27;
end.
Соседние файлы в папке 2 лаб. Структурные операторы