Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 1 лаб. Арифметические операции / Prog09
.pas program prog09;
uses crt;
var c: char;
begin
clrscr;
write(' Введите один символ : ');
c:=readkey; writeln(c);
writeln(' Предыдущий : ', pred(c));
writeln(' Следующий : ', succ(c));
readln;
end.
uses crt;
var c: char;
begin
clrscr;
write(' Введите один символ : ');
c:=readkey; writeln(c);
writeln(' Предыдущий : ', pred(c));
writeln(' Следующий : ', succ(c));
readln;
end.
Соседние файлы в папке 1 лаб. Арифметические операции