"В даном текстовом файле узнать єсть ли первыє два симвала цыфрами. Єсли да то узнать являитса ли даноє число ( получаєтса из 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.

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

{спочатку іде відкривання файлу}
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(c) mod 2 = 0 then writeln('Парне') else writeln('Непарне')
  else writeln('2 не цифра);
  end;
else writeln('1 не цифра);
end;
{закрити файл}
close(f);

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

sheka, если автор все же старается говорить по-русски, то почему бы и тебе не попробовать? Или хотя бы переводи..

ну я вообще-то стараюсь...
p.s. я просто чуть со смеху не упал пока читал.
а мое понять я думаю не тяжело, тем более тебе!

дякую за допомогу писав тупо) просто хтiв щоб швидше вiдповили.
але програма не працює "_ 5 помилку сунтаксесу видає чому . Вводив " як шiфт + Є , що це взагалi in["0".."9"] значить до цього з цим не мав справи, сенс проги зрозумiлий нiби просто а не працює?

Дудинець
Я не очень хорошо понимаю по-украински, переведи, пожалуйста. В чем проблема?

видає помилку
Error 5: Suntax error
при запуску _"_

Где?

тут что ли ?

assign(f,in');

Исправь на

assign(f,'in');

причому assing(f,'in') в мене assing (f,'fail.txt') .
помилку в цьому показує in["0".."9"]!

А потому что у тебя кавычки не те,чар заключается в 'f' - например, а у тебя "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(c) 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...

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);

Четное/нечетное что ли?

s:=s[1]+s[2];
str(num,s);
if not odd(num) then 
  writeln('Четное')
else
  writeln('Нечетное');

дякую Оzzя прога працює так як ви написали але хоч в файлi першi два символи цифри хоч не цифри пише "1 2 не цифри" дивно?
так само чи перши два цифри чи нi пише що парне (четне)? ниби файл не читає взагали ну це так...
цю прогу тре захистити i до неї 2 питання
1)що означає in['0'..'9'] поняв що масив усiх чисел але real or integer? 2)str (num,s) ; if not odd(num) then четне str(num,s) це функцiя якась в паскалi , а odd(num) це умова на парнiсть числа num яке видала функцiя str?

Это означает, что мы проверяем, не входит ли символ во множество символов от 0 до 9
odd(num) выдает, что число нечетное
str(num,s) из строки выдает число, например, строка '12' будет переведена в число 12

вже те, що ти це ЗРОЗУМІВ це хАрАшО.

можливо, що 1й сивол цифра, а 2й пробіл, а 3й цифра. тому і пише "не цифри".

що означає висловлюй думку так, щоб тебе міг хоч хтось ЗРОЗУМІВ.
1. ['0'..'9'] це взагалі множина.
2. str (num,s) перетворює num:integer в s:string.
так, якщо непарне то odd(7)=true.

якщо хочеш хоч щось вивчити, можу тобі скинути підручник українською мовою, там все це ЗРОЗУМІЛО пояснюється. якщо тобі це треба - скинь мило.

можна сюди bobi56@bk.ru .
щодо проги ви правi там були пропуски тому й писало не цифри.
а щодо парностi непарностi постiйно пише парно дивився поступово що набуває s i num
прописуючи writeln
s:=s[1]+s[2] набуває значення усього що записанов файл i цифри i букви!
str(num,s) вiдповiдно дорiвнює 0. Отже помилка тут s:s[1]+ s[2], воно повинно складатися з 1 i 2 символiв. а не з усього файлу.

Обманул слегка
Нужен val, чтобы перевести строку в число