Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 02.05.2018, 21:31   #1
SiniX
Новичок
 
Регистрация: 02.05.2018
Сообщений: 2
Репутация: 10
По умолчанию Почему выдаёт значение 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 в 21:35.
SiniX вне форума   Ответить с цитированием
Старый 02.05.2018, 21:34   #2
Alex11223
Модератор
Заслуженный модератор
 
Регистрация: 12.01.2011
Сообщений: 16,472
Репутация: 3242

icq: 512-765
skype: alexp.frl
По умолчанию

Потому что
Код:

program bullsncows;
var a , b , c , d , abcd , bulls , cows : integer;
begin
writeln( a , b , c , d );
end.

Alex11223 вне форума   Ответить с цитированием
Старый 02.05.2018, 21:39   #3
SiniX
Новичок
 
Регистрация: 02.05.2018
Сообщений: 2
Репутация: 10
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


06:18.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru