Дан файл символьного типа. распечатать коды asc11 записанных в него символов двумя способами

Var   f: text;   i: integer;   c: char;     begin   assign(f, 'in.txt');   reset(f);       while not (eof(f)) do   begin     read(f, c);     writeln(c, '   ', ord(c));   end;       writeln('===================');   reset(f);       while not (eof(f)) do //второй способ, перебором получить код   begin     i : = 0;     read(f, c);     repeat       i : = i + 1;     until (chr(i) = c);     writeln(c, '   ', i);   end; end.

во - первых рассмотрим простые высказывания:

 

м - монитор неисправен

в - видеокарта неисправна

о - оперативная память неисправна

 

во вторых: запишем на языке логики возможные предположения: (m v b) --> o и m --> b

пусть  f(м,в,о) =  (m v b) --> o и m --> b

составляем таблицу истинности:

м     в     о     m --> b      

0       0     0         1

1       0     1         1

0       0     0         1

1       1     1         0

0       0     0         1

0       1     1         0

1       1     0         0

1       1     1         1

1       0     0         0

1       0     0         0

0       1     1         1

1       1     0         1

0       1     1           0

1       1     1           1

0       0     1           0

1       1     0           1

1       1     0           1

1       0     1           1                

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

чтение из файла обычно пишется readln(f,s) где f имя файловой переменной так что скорей всего нужно вставить

readln(input,s); s: =s+' '; f: =0; for i: = 1 to length(s) do beginif s[i]< > ' ' then r: =r+s[i]; if s[i]=' ' then begin k: =k+1; d[k]: =r; r: =''; end; end; readln(input,n); for i: = 1 to n do beginreadln(input,sait[i]); readln(input,tegs[i]); readln(input,pop[i]);

соответственно и запись в файл write(f,s)