for j:=1 to max do
g[j]:=0;
i:=1;
repeat
repeat
Возможно вы искали - Реферат: Краткая история ЭВМ
g[i]:=g[i]+1;
until pr or (g[i]>n);
if (g[i]>n) then
begin
g[i]:=0; i:=i-1;
Похожий материал - Реферат: Защита информации в глобальной сети
end
else i:=i+1;
until (i=1)or(i>max);
gen:=i>max;
end;
Очень интересно - Реферат: Интернет в культурной коммуникации
begin
clrscr;
writeln(' Haжмите цифру, указывающую номер файла');
writeln(' с которого будут счтываться данные. ');
writeln('');
Вам будет интересно - Реферат: Компьютерные сети и телекоммуникации
for i:=1 to 3 do
writeln(' ',i,' - файл input',i,'.txt');
{Запpосномеpафайла.}
repeat
num:=readkey;
Похожий материал - Реферат: Концентраторы в локальных сетях
if not((num='1')or(num='2')or(num='3')) then
writeln(' Вы в чем-то ошиблись');
until (num='1')or(num='2')or(num='3');
filen:='input'+num+'.txt';