робота с файлом, проверить что первыє два симвалы єсть цыфрами Опции

[Дудинець]

"В даном текстовом файле узнать єсть ли первыє два симвала цыфрами. Єсли да то узнать являитса ли даноє число ( получаєтса из 1 и 2 цифри файла) парным."

[Дудинець]

пробывал ну написал процедури для ввода в файл и вывода содержимово на екран а сама процедура проверки ? не могу додумать вот што написал
Procedure obrobka;

begin
reset(f);
while not eof(f) do
begin
readln(f,s);
if s:=real then writeln ('cimvol chislo');
end;end.

но ето только штоб написало што ети симвалы цифры а как проверить што их число парноє? помогите кому не лень надо очень , причом быстро доделать ето !

Сообщение отредактировано: Lapp - 30.05.2009 2:38

[sheka]

{спочатку іде відкривання файлу}
assign(f,in');
reset(f);
{потім считування із файлу(тобі треба тільки перші 2 символи)}
read(f,c); 
if c in["0".."9"] then begin
  read(f,c); 
  if c in["0".."9"] then if chartoint© mod 2 = 0 then writeln('Парне') else writeln('Непарне')
  else writeln('2 не цифра);
  end;
else writeln('1 не цифра);
end;
{закрити файл}
close(f);

вибач звісно, але, будь ласка, краще використовуй це.

[Дудинець]

[quote name='sheka' date='29.05.2009 21:52' post='134019']

 assign(f,in');
reset(f);
read(f,c); 
if c in["0".."9"] then begin
  read(f,c); 
  if c in["0".."9"] then if chartoint© mod 2 = 0 then writeln('Парне') else writeln('Непарне')
  else writeln('2 не цифра);
  end;
else writeln('1 не цифра);
end;
close(f);

всеодно ця програма в мене працює тiльки з типом даних char а менi потрiбно string при якому помилка tupe mismach доходячи до першої умови then...