следующая тема »

[19 Июль 2025, 10:48:32]

Новости, реклама:

[19 Июль 2025, 10:48:32]

Новости, реклама:

[meermitka]

while k=0 do
 begin i:=i+1;
 if i>n-1 then begin writeln('net takich detey');delay(100);sound(100);readln;nosound;halt(0); end;
 if (a-a[i+1]=1) or (a-a[i+1]=-1) then begin writeln('pervaia para');
writeln(i);writeln(i+1);readln;
 nosound;halt(0); end;
 end;

k=0 будет всегда. k нигде в программе не изменяется.
В начале программы присваивается k=0. Зачем тогда писать цикл while?