Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / GETSTART
.PAS program newmenu;
uses crt;
var x,y,i:integer; {x,y - Є®®а¤Ё вл ¬Ґо}
s,n:string; {n - Ё¬п ¬Ґо}
b:boolean;
a:array[1..10] of string; { - ЇгЄвл ¬Ґо}
procedure newmen(o,p:integer; f:array[1..10] of string; m:string; Var c:string);
gotoxy (o,p);
write (
uses crt;
var x,y,i:integer; {x,y - Є®®а¤Ё вл ¬Ґо}
s,n:string; {n - Ё¬п ¬Ґо}
b:boolean;
a:array[1..10] of string; { - ЇгЄвл ¬Ґо}
procedure newmen(o,p:integer; f:array[1..10] of string; m:string; Var c:string);
gotoxy (o,p);
write (
Соседние файлы в папке Alex