Поиск одинаковых цифр в числе

@flire · Регистрация: 04.10.2009

Author24 — интернет-сервис помощи студентам

Здравствуйте. Обращаюсь к знающим людям за помощью. Вопрос таков: есть задание - написать программу на Pascal, вычисляющую, есть ли одинаковые цифры в введённом числе. Скажите, в чём ошибка в приведённом ниже коде?

Pascal

program odinak;
uses crt;
label again;
var
   k,n,n1,counter: integer;
   c:char;
begin
again: clrscr;
writeln('Vvedite chislo:');
readln(n);
counter:=0;
    while (n>0) do begin
        k:=(n mod 10);
        n:=(n div 10);
        n1:=n;
            while (n1>0) do begin
                if k=(n1 mod 10) then counter:=counter+1;
                n1:=(n1 div 10);
            end;
    end;
if counter<>0
    then writeln('Da.')
    else writeln ('Net.');
writeln('Again?');
readln(c);
if c='y' then goto again;
end.

Заранее спасибо.

@Puporev · 04.10.2009, 17:37

А почему Вы считаете что тут ошибка? Немного потестировал, вроде работает.

Добавлено через 1 минуту
Единственно, это бы заменить goto на repeat .. until.

@flire · 04.10.2009, 19:35 **[ТС]**

Странно, у меня не работает... Например, при числе 1234567890 выдаёт "Да".

@TAVulator · 04.10.2009, 19:39

используй вместо integer - longint
или вообще string используй.

@Puporev · 04.10.2009, 19:52

flire, Ты бы еще 265515155151456516566651656545 ввел. Хочешь длинные числа, используй строки, как тебе говорят, тогда алгоритм вообще другой будет.

@TAVulator · 04.10.2009, 19:56

ну строки тут нафиг, впринципе, не нужны, т.к. если цифр в числе больше 10, то по любому встречаются одинаковые цифры )))

@Puporev · 04.10.2009, 20:49

TAVulator, +10!

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	04.10.2009, 17:37	2
	А почему Вы считаете что тут ошибка? Немного потестировал, вроде работает. Добавлено через 1 минуту Единственно, это бы заменить goto на repeat .. until. 0

@flire 0 / 0 / 1 Регистрация: 04.10.2009 Сообщений: 5
	04.10.2009, 19:35 [ТС]	3
	Странно, у меня не работает... Например, при числе 1234567890 выдаёт "Да". 0

@TAVulator ⚽ 4190 / 1291 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	04.10.2009, 19:39	4
	используй вместо integer - longint или вообще string используй. 1

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	04.10.2009, 19:52	5
	flire, Ты бы еще 265515155151456516566651656545 ввел. Хочешь длинные числа, используй строки, как тебе говорят, тогда алгоритм вообще другой будет. 0

@TAVulator ⚽ 4190 / 1291 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	04.10.2009, 19:56	6
	ну строки тут нафиг, впринципе, не нужны, т.к. если цифр в числе больше 10, то по любому встречаются одинаковые цифры ))) 1

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	04.10.2009, 20:49	7
	TAVulator, +10! 0

Опции темы