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

[Дудинець]

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

[Ozzя]

assign(f,'fail.txt');
reset(f);
readln(f,s); 
if (s[1] in ['0'..'9']) and  (s[2] in ['0'..'9']) then {цифры}
  begin
    {что такое парнэ/непарнэ}
   end;
close(f);

Сообщение отредактировано: Ozzя - 4.06.2009 10:01