Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.05.2018, 20:31   #1
SiniX
Новичок
Джуниор
 
Регистрация: 02.05.2018
Сообщений: 2
По умолчанию Почему выдаёт значение 0000?

Почему выдаёт значение 0000?
Код:
program bullsncows;
  var a , b , c , d , abcd , bulls , cows : integer;
begin
  while (a <> b) and (a <> c) and (a <> d) and (b <> c) and (b <> d) and (c <> d) and (a <> 0) do
  begin
    a := random(10);
    b := random(10); 
    c := random(10); 
    d := random(10); 
  end;
  writeln( a , b , c , d );
end.

Последний раз редактировалось Alex11223; 02.05.2018 в 20:35.
SiniX вне форума Ответить с цитированием
Старый 02.05.2018, 20:34   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Потому что
Код:
program bullsncows;
var a , b , c , d , abcd , bulls , cows : integer;
begin
writeln( a , b , c , d );
end.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 02.05.2018, 20:39   #3
SiniX
Новичок
Джуниор
 
Регистрация: 02.05.2018
Сообщений: 2
По умолчанию

Понял в чём ошибка.
SiniX вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не пойму почему выдаёт ошибку. StringGrid Artsiom Помощь студентам 8 08.05.2014 00:02
Почему компилятор выдаёт ошибки vlados92 Общие вопросы C/C++ 0 13.04.2011 01:05
Проверьте правильность кода. Почему выдаёт ошибку? vlados92 Общие вопросы C/C++ 4 02.03.2011 12:58
Почему выдаёт такой результат??? bloodeagle Помощь студентам 1 12.11.2009 08:21
Почему ошибку выдаёт? Inbox Общие вопросы Delphi 14 24.06.2007 02:15