Вывести количество семерок в числе (Delphi)

[qpuTuJlb]

Здравствуйте, мне задали написать программу в которой нужно написать число и вывести сообщение сколько в этом числе семерок, делать нужно используя mod и div, спасибо заранее.

[Stilet]

И в чем сложность?
В цикле выдели из числа его цифры и сравнивай с семеркой

[qpuTuJlb]

Я-заочник и не все понимаю

[Stilet]

И я заочником был. И тоже не все понимал, но элементарные вещи хотя бы пробовал делать по книгам.

[Человек_Борща]

О_О....

myInteger:=Chislo div 7;

[qpuTuJlb]

Сообщение от Человек_Борща

О_О....

myInteger:=Chislo div 7;

а зачем мне чтобы оно любое число делило на div 7? если я например введу 14 то выбьет 2, а мне нужно чтобы выбивало сколько цифр 7 в числе имеется

[eoln]

Человек_Борща, верно, но ИМХО автору надо узнать сколько семёрок в записи числа, а не в самом числе
qpuTuJlb, задача проста и много раз подобное было на форуме. Темы с разбиением на цифры (только чуть изменить условие)
http://programmersforum.ru/showthread.php?t=205904
http://programmersforum.ru/showthread.php?t=199747
http://programmersforum.ru/showthread.php?t=172414

[Аватар]

i:=723949;  // для неотрицательных целых
j:=0;
while i>0 do begin
  if i mod 10=7 the Inc(j);
  i:=i div 10;
end;
//в j к-во семерок

[qpuTuJlb]

Сообщение от Аватар

i:=723949;  // для неотрицательных целых
j:=0;
while i>0 do begin
  if i mod 10=7 the Inc(j);
  i:=i div 10;
end;
//в j к-во семерок

Вот оно,спасибо