Не смог найти ошибку

@Скромник · Регистрация: 08.01.2013

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

Добрый день. Мне дано следующее задание:
Дано натуральное число n (n ≤ 9999).
Верно ли, что все четыре цифры числа различны?

Я решил следующим образом:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program u5;
var 
                                       a,b,c,d,n:integer;
begin
   writeln ('Введите четырехзначное число');
                             repeat
                             readln(n);
                             until n>1000;
                             a:=n div 1000;
                             b:=n div 100 mod 10;
                             c:=n mod 100 div 10;
                             d:=n mod 10;
                             if ((a=b)and(a=c)and(a=d)) or ((b=a)and(b=c)and(b=d))
then 
                             writeln ('Есть одинаковые')
else 
                             writeln ('Нет одинаковых');
end.

Вроде все верно, но если я ввожу одинаковые числа, он все равно мне выдает что нет одинаковых... в чем моя ошибка, подскажите пожалуйста.

@ermolay · 16.06.2013, 16:02

ваше условие можно прочитать так:
если
а равен b и равен c и равен d
или
b равен a и равен с и равен d

вставьте вот это условие:
(a=b)or(a=c)or(a=d)or(b=c)or(b=d)or(c=d)
или можно так (программа сама будет выводить булево значение):

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program u5;
 
var
  a, b, c, d, n: integer;
 
begin
  writeln('Ââåäèòå 4-õ çíà÷íîå ÷èñëî: ');
  repeat
    readln(n);
  until (n >= 1000)and(n <= 9999);
  a := n div 1000;
  b := n div 100 mod 10;
  c := n mod 100 div 10;
  d := n mod 10;
  writeln((a <> b) and (a <> c) and (a <> d) and (b <> c) and (b <> d) and (c <> d))
end.

@Скромник · 16.06.2013, 16:04 **[ТС]**

Понял свою ошибку, спасибо Вам.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@Скромник 24 / 5 / 2 Регистрация: 08.01.2013 Сообщений: 94
	16.06.2013, 16:04 [ТС]
	Понял свою ошибку, спасибо Вам. 0