Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 2 лаб. Структурные операторы / Program13
.pas program prog13;
uses crt;
var c: char;
begin
clrscr;
repeat
c:=readkey;
write(c);
until (c='q') or (c='Q') or (c='Й') or (c='й');
end.
uses crt;
var c: char;
begin
clrscr;
repeat
c:=readkey;
write(c);
until (c='q') or (c='Q') or (c='Й') or (c='й');
end.
Соседние файлы в папке 2 лаб. Структурные операторы