Паскаль. Последовательность чисел

Chelios_rus · 27.12.2013, 14:03

Пожалуйста помогите с заданием. Язык программирования паскаль.

Найти есть ли в последовательности чисел, вводимых с клавиатуры, три одинаковых числа, следующих подряд. Признак завершения ввода: первое число встретилось три раза.

Vladimir_S · 27.12.2013, 14:18

Цитата:

Сообщение от Chelios_rus

Пожалуйста помогите с заданием. Язык программирования паскаль.

Найти есть ли в последовательности чисел, вводимых с клавиатуры, три одинаковых числа, следующих подряд. Признак завершения ввода: первое число встретилось три раза.

Прежде всего - на будущее: именования тем типа "Помогите!", "Help!!!", "Нужна помощь" и т.п. у нас ПОД ЗАПРЕТОМ. Прошу учесть.

Теперь по задаче. Пожалуйста:

Код:

Var
 a,b,c,a1,k:Integer;
Begin
 k:=1;
 b:=0;
 c:=0;
 write('First number: ');
 readln(a1);
 a:=a1;
 Repeat
  c:=b;
  b:=a;
  write(' Next number: ');
  readln(a);
  if (a=b) and (b=c) then writeln('Yes! a= ',a);
  if a=a1 then k:=k+1;
 Until k=3;
 Readln
End.

Chelios_rus · 27.12.2013, 14:29

Учту, спасибо.

27.12.2013, 14:03	#1 (permalink)
Chelios_rus Member Регистрация: 14.12.2013 Сообщений: 21 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Паскаль. Последовательность чисел Пожалуйста помогите с заданием. Язык программирования паскаль. Найти есть ли в последовательности чисел, вводимых с клавиатуры, три одинаковых числа, следующих подряд. Признак завершения ввода: первое число встретилось три раза.

27.12.2013, 14:03
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Может быть решение данного вопроса имеется где то тут Последовательность С++ Вывести последовательность чисел в паскале

27.12.2013, 14:29	#3 (permalink)
Chelios_rus Member Регистрация: 14.12.2013 Сообщений: 21 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Учту, спасибо.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070