Вопрос по информатике:
Паскаль
вводится последовательность из n целых чисел. определить, содержит ли последовательность хотя бы два равных соседних числа (a_i=a_(i+1)) (без массива)
- 16.05.2018 10:01
- Информатика
- remove_red_eye 10371
- thumb_up 19
Ответы и объяснения 1
Var a,i,x1,x2,S:integer;
begin
S:=0;
x1:=0;
a:=1;
While (a0) 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.
- 17.05.2018 14:06
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.