Задача - Если в номере билета лотереи содержится цифра 7, тогда билет выиграшный. Проверить номер на выигрыш

[qpuTuJlb]

Доброго времени суток,в колледже задали задачу: В лотерее используется 10000 билетов, каждый билет номер которого содержит 7-выиграшный. Вам дан номер билета,определить является ли он выиграшным.
Проходили тему с операциями mod и div,так думаю что нужно эту задачу решить с помощь их. Код написал но выдает ошибку, в чем ошибка?

var
a,b,c,d,e:integer;
 begin
 a:=strtoint(Edit1.Text);
 if (b:=10 mod a=3) or (c:=100 mod a=30) or (d:=1000 mod a=300) or (e:=10000 mod a=3000) then
 Showmessage('Вы выиграли!') else
 Showmessage('Вы проиграли!');

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[BDA]

Если это Дельфи, то там, насколько мне известно, нельзя делать присвоение в условном операторе, как в Си.

  n := strtoint(Edit1.Text);
  while n <> 0 do
  begin
    if n mod 10 = 7 then
    begin
      showmessage('Winner');
      exit;
    end;
    n := n div 10;
  end;
  showmessage('Loser');

[qpuTuJlb]

спасибо,а как правильно вписать чтобы выводило сообщение о том что если вводите число больше 10000 то писало "Такого билета нет"

[BDA]

n := strtoint(Edit1.Text);
if (n < 0) or (n > 10000) then
begin
  showmessage('Ticket with this number does not exist');
  exit;
end;
...{остальной код}

[qpuTuJlb]

var
a:integer;
begin
a:=strtoint(Edit1.Text);
if (a < 0) or (a > 10000) then
begin
showmessage('Такого билета не существует!');
exit;
end;
while a<>0 do
begin
if a mod 10=7 then
begin
showmessage('Вы выиграли!');
exit;
end;
a:=a div 10;
end;
showmessage('Вы проиграли!');

end;

Вообще не реагирует на кол-во билетов,и если ввести очень большое число то программа выдаст ошибку

[BDA]

Странно, у меня работает.
Этот код написан в событии кнопки?
Кстати, вводимое в едит число должно влезать в тип integer, то есть ОЧЕНЬ большие числа нужно по-другому отсекать (вот так отсекутся все недопустимые значения: a:=strtointdef(Edit1.Text,-1); ).

[ViktorR]

Попробуйте изменить тип переменной a, например:

var a : longint;

Теперь можно вводить и бОльшие числа.
Для ограничения количества введенных цифр следует определять длину введённой строки, например:

if Length(Edit1.text) > 5 then
begin
   Edit1.text := '';
   showmessage('Вводите не более 5-и цифр!');
   exit;
end;

И: a - это ведь номер билета, а не количество билетов.
Т.е., когда вводится корректный номер (выигрышный), то нет нужного сообщения?
Попробуйте добавить скобок:

if ((a < 0) or (a > 10000)) then
begin
showmessage('Такого билета не существует!');
exit;
end;

Вроде должна ...

[qpuTuJlb]

спасибо,что-то не верно с указанием путя открытия и поэтому ошибку с начало выбивает.