Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Delphi / Операторы цикла в Paskal / LAB7
.PAS program case_1;
var
ch:char;
begin
readln(ch);
case ch of
'1'..'9': writeln('жЁда ');
'a'..'z', ' '..'п': writeln('ЎгЄў ');
'+','-','*','\': writeln('®ЇҐа в®а ўў®¤ ');
end;
end.
var
ch:char;
begin
readln(ch);
case ch of
'1'..'9': writeln('жЁда ');
'a'..'z', ' '..'п': writeln('ЎгЄў ');
'+','-','*','\': writeln('®ЇҐа в®а ўў®¤ ');
end;
end.
Соседние файлы в папке Операторы цикла в Paskal