Дано натуральное число. Верно ли, что в его десятичной записи есть шесть единиц подряд? - Pascal ABC

Формулировка задачи:

Ну тут как быть кто нидь че нить подскажите

Код к задаче: «Дано натуральное число. Верно ли, что в его десятичной записи есть шесть единиц подряд? - Pascal ABC»

textual
program SixOfOne;
 
var
  n: longint;
  Digit: integer;
  CountOne: integer;
begin
  readln(n);
  n := abs(n);
  CountOne := 0;
  while n <> 0 do
  begin
    Digit := n mod 10;
    n := n div 10;
    if Digit = 1 then
      Inc(CountOne)
    else
      CountOne := 0;
    if CountOne = 6 then
      break;
  end;
  if CountOne = 6 then
    writeln('YES')
  else
    writeln('NO');
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

5   голосов, оценка 3.800 из 5


СДЕЛАЙТЕ РЕПОСТ