Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Скромник
23 / 4 / 2
Регистрация: 08.01.2013
Сообщений: 90
1

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

16.06.2013, 15:28. Просмотров 239. Ответов 2
Метки нет (Все метки)

Добрый день. Мне дано следующее задание:
Дано натуральное число 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.
Вроде все верно, но если я ввожу одинаковые числа, он все равно мне выдает что нет одинаковых... в чем моя ошибка, подскажите пожалуйста.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.06.2013, 15:28
Ответы с готовыми решениями:

Не работает ссылка, самостоятельно найти и исправить ошибку не смог.
Всем привет. Если на сайт http://bigsys.ru/ войти, используя Google Chrome, не работает ссылка...

То что читал то не помогло! Не смог исправить ошибку
Все в интернете перечитал, ничего не получается исправить ! в исходниках тот же код, но билдер...

Смог найти себе работу
Долго искал работу. И только при помощи "Отзывы сотрудников" смог подобрать себе компанию, которая...

TIniFile - не смог найти такой компонент
Не смог найти компонент TIniFile. Попробовал создать динамически, но билдер пишет Undeifined symbol...

Верстка div, не смог найти примера
В общем суть моей проблемы такова: есть шапка сайта, далее идет блок с контентом (1000хр по центру)...

2
ermolay
3437 / 2376 / 2134
Регистрация: 04.12.2011
Сообщений: 3,965
16.06.2013, 16:02 2
ваше условие можно прочитать так:
если
а равен 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.
2
Скромник
23 / 4 / 2
Регистрация: 08.01.2013
Сообщений: 90
16.06.2013, 16:04  [ТС] 3
Понял свою ошибку, спасибо Вам.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.06.2013, 16:04

Существует ли драйвер , потому что я не смог его найти
ноут asus a53br , видеокарта radeon 6400 HD series

Не смог найти ответ: Could not find or load main class
Вопрос такой. JDK установлен, путь установлен, все ок. Пробую писать первые HEllo world и тд. Все...

Кто нить смог бы найти в чём моя ошибка
Кто нить смог бы найти в чём моя ошибка при выбора соотвествуюшего адреса в меню почему то не...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru