Всем привет ) помогите с паскалем В городке началась мода на

Всем привет ) помогите с паскалем

В городке началась мода на модные номера мобильных телефонов. Популярным считается номер, в котором 4 либо больше из 7 цифр однообразные. Помогите обитателям определить является ли номер популярным.
Входные данные:
Вводится единственное число, состоящее ровно из 7 цифр. Причём знаменито, что номер не начинается с 0.
выходные данные: Вывести YES- если номер популярный и NO в неприятном случае.

Задать свой вопрос
1 ответ
Var N : Longint;

Function Check(A : Longint) : Boolean;
Var
  m : array[0..9] of Byte;
  i : Byte;
Begin
  For i:=0 to 9 do m[i]:=0;
  While Agt;0 do
  Begin
    Inc(m[A mod 10]);
    A:=A div 10;
  end;
  Check:=False;
  For i:=0 to 9 do If m[i]gt;=4 then Check:=True;
end;

Begin
  N:=0;
  While (Nlt;1000000) or (Ngt;9999999) do Readln(N);
  If Check(N) then Writeln('YES') else Writeln('NO');
end.

Molodochinikov Vladislav
И чего это мой ответ отметили как нарушение? Хоть бы доказали в комментариях.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт