Паскаль вводится последовательность из n целых чисел. определить, содержит ли последовательность хотя бы два равных соседних числа (a_i=a_(i+1)) (без массива)

Question

Паскаль вводится последовательность из n целых чисел. определить, содержит ли последовательность хотя бы два равных соседних числа (a_i=a_(i+1)) (без массива)

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a,i,x1,x2,S:integer; begin S:=0; x1:=0; a:=1; While (a<>0) do begin Writeln('Vvodite elementi stroki , po okonchanii vvedi 0 ') ; readln(a); x2:=x1; x1:=a; if (x2=x1) then S:=1; end; if (S=1) then Writeln('sushestvyet') else Writeln('ne sushestvyet'); end.