Содержит ли последовательность хотя бы 2 равных соседних числа

@lal · Регистрация: 21.01.2013

0 конец последовательности. определить содержит ли последовательность хотя бы 2 равных соседних числа

@Reveng · 07.02.2013, 21:47

Тестируй.

Pascal

uses crt;
 
var
  a1, a2 : integer;
  bool : boolean;
  
begin
  Repeat
    Writeln('Вводите последовательность чисел: ');
    Readln(a1);
  until a1 <> 0;
  a2 := a1;
  bool := false;
  Repeat
    Readln(a1);
    if (a1 = a2) and (bool = false) then bool := true;
    a2 := a1;
  until a1 = 0;
  Writeln(bool);
  Readln;
end.

@lal 0 / 0 / 0 Регистрация: 21.01.2013 Сообщений: 33
		1
	Содержит ли последовательность хотя бы 2 равных соседних числа 07.02.2013, 10:27. Показов 4060. Ответов 1 Метки нет (Все метки) 0 конец последовательности. определить содержит ли последовательность хотя бы 2 равных соседних числа __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Содержит ли последовательность хотя бы 2 равных соседних числа

Решение