Задача про повтор цифр в числе Опции

[Biowolf]

Подскажите наилудший вариант решения  задачи.Не могу выбрать наилучший.
Задача должна быть с удобоворимым интерфейсом.В случае неправельного в вода
данных выдовать ошибку и  возврацать к вводу.
Задача  
Дано трехзначное  число проверить если в нем повтаряющиеся цифры.

[pascal65536]

Хе-хе, проверяем введёную строку на предмет: трехзначное ли это число, если нет - посылаем юзверя ... в начало программы, или заставляем его вводить строку пока не умрёт или не введёт правильно.
Потом делим число на 10 - остаток это число единиц, результат делим на 10 - число десятков, результат - число сотен.
Полученные три числа сравниваем, попарно.

[Atos]

Да тут вроде ничего другого и не придумать.

[AlaRic]

Сегодня на олимпиаде была похожая задача.
Число z=345
z div 100 = 3
345-3*100=45
45 div 10 = 4
45-4*10=5
5 div 1 = 5
Что-то наподобии!

[Catty]

у меня когда -то лаба была!!! что-то типа того что написал AlaRic! ;D ;D

[trminator]

Можно хорошо множествами воспользоваться, чтобы проверить, встречалась ли такая цифра

[Darkwolf]

Помогити сделать вывод ошибки и возвратк вводу если ввели буквы.
вот пробый текст.

Код

PROGRAM zadacha1;
  uses crt;
  VAR N:integer;a,b,c:integer;
  BEGIN
  clrscr;
  WRITE('Vvedite chislo');
        READLN(N);
        while   n<100 do
        begin
         WRITEln('Oshibka. Vi Vveli slishkom malenikoe chislo ');
         WRITEln('Vvedite chislo');
        READLN(N);
        end;
        while    n>999 do
         begin
         WRITEln('Oshibka.Vi Vveli slishkom bolishoe chislo');
  WRITEln('Vvedite chislo');
        READLN(N);
        end;
        a:=n div 100 mod 10;
        b:=n div 10 mod 10;
        c:=n mod 10;
        IF (a=b)  or (a=c) or (c=b)
          THEN
          WRITELN('Est povtor')
          ELSE
          WRITELN('Net povtorov');
   READLN;
  END.

[Atos]

nm,

Сообщение отредактировано: Atos - 5.03.2004 10:51

[Catty]

Atos, а ты себя всегда хвалишь?

[Darkwolf]

Миха всегда рад помочь и посоветовать влюбом вопросе.

[Darkwolf]

Миха так мы стобой потчти соседи мне дотебя ночь езды на поезде, я в Барнауле. В Омске у меня родственики есть.

[KRUTOY]

Atos
Да, чего-то ты разошёлся, земляк :D

[Atos]

Да это не я был!!!!!!! Одна юмористка из нашей группы постаралась! Убью юзерку!!!!!!!!!