Паскаль

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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.