Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Delphi / Операторы цикла в Paskal / PROG_CES
.PAS program case_1;
var
ch:char;
begin
readln(ch);
case ch of
'1': write('Sergon');
'2': write('ѓагЇЇ ь 8823');
'3': write('‡ 祬 агЈ Ґимбп, з «мЁЄ ');
'4': write('а §лҐ б«®ў ...');
end;
end.
var
ch:char;
begin
readln(ch);
case ch of
'1': write('Sergon');
'2': write('ѓагЇЇ ь 8823');
'3': write('‡ 祬 агЈ Ґимбп, з «мЁЄ ');
'4': write('а §лҐ б«®ў ...');
end;
end.
Соседние файлы в папке Операторы цикла в Paskal