Количество чисел кратных двум

[V@mpir]

В общем есть задача! В файле (текстовом) находиться число, нужно посчитать какое количество цифр содержится в этом файле кратных двум.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
f:textfile;
inn,w:string;
i:integer;
begin
AssignFile(f,'in.txt');
reset(f);
while not Eof(f)do
begin
readLn(f,inn);
Memo1.Lines.Append(inn);
end;
CloseFile(f);
w:=memo1.Lines.Strings[1];
for i:=1 to length(w) do
if i div 2 = 0 then
end;

end.

Хм... какой то зачаток, (пришедший мне в голову),если он вообще имеет смысл.

[Sazary]

procedure TForm1.Button1Click(Sender: TObject);
var N,t : longint;
count,k : integer;
f : textfile;
begin
assignfile(f,'test.txt');
reset(f);
read(f,N);
t := N;
count := 0;
while N>0 do
 begin
 k := N mod 10;
 if k mod 2 = 0 then inc(count);
 N := N div 10;
 end;
ShowMessage('Количество четных цифр в числе '+IntToStr(t)+': '+IntToStr(count));
closefile(f);
end;

[Sasha_Smirnov]

Сообщение от V@mpir

Хм... какой то зачаток, (пришедший мне в голову),если он вообще имеет смысл.

Да... если это семечко — то каков же плод?!!...

(Для файла Word’овского, благодаря шаблону "[02468]", сей подсчёт пишется в 7 строчек: 1 цикл и 1 сравнение!)

[Sazary]

Сообщение от Sasha_Smirnov

Да... если это семечко — то каков же плод?!!...

Во всяком случае, не съедобным

[Андрей Куб]

i div 2 это целая часть от деления а не дробная, вот по этому у тебя и не считало.

[Sazary]

i div 2 это целая часть от деления а не дробная, вот по этому у тебя и не считало.

Проблема была далеко не только в этом.

[V@mpir]

Sazary, Не мог бы объяснить для чего здесь эти две строчки понятно, что они нужны и без них не робит ничего, но хотелось бы понять для чего они и разобраться до конца.

t := N;

Это вот. Тут я не понял зачем присваивать переменной некое знаечние которое такого же типа??

N := N div 10;

И эта строчка, что она означает я то понял, но вот зачем это??

[Sazary]

t := N;

Переменная t нужна только для того, чтобы сохранить исходное число (которое будет изменяться). Если вам это не нужно, то можете удалить строчку (подкорректировав все, что связано с этой переменной).

Поясняю цикл:

while N>0 do
 begin
 k := N mod 10; // получаем очередную цифру исходного числа
 if k mod 2 = 0 then inc(count);
 N := N div 10;  // делим число на 10, чтобы на следующей итерации получить очередную цифру
 end;