Дан текстовый файл. вывести на экран самую длинную строку из файла.через паскале.

Var   f: text;   s: string;   max: string : = '';   begin   //в папке с программой должен быть файл "input.txt"     if fileexists('input.txt') then   begin     assign(f, 'input.txt');     reset(f);     while not eof(f) do     begin       readln(f, s);       if length(s) > length(max) then         max : = s;     end;     writeln('самая длинная строка в файле: ');     writeln(max);     close(f);   end   else     writeln('файл не найден'); end.

проще всего решать такие , всё к одной системе, проще всего 16ричной(легче переводить), хотя можно и в10ричную, но сложней.

итак

a = 91h

b = 352(8) = 011 101 010b =   1110 1010b =eah

ч1 = 1000 1001b = 89h

ч2 = 1000 1100b = 8ch

ч3 = 1101 0111b = d7h

ч4 = 1111 1000b = f8h

ну и всё, теперь ясно видно, что заданному условию удовлетворяет только ч3.

потому, что

если расположить все числа в поряде возрастания, то получим

 

89h   8ch   91h   d7h   eah   f8h

  ч1       ч2       а         ч3       b         ч4

 

вот теперь очевидно.

 

 

program z1; uses crt; var a: array[1..10,1..15] of integer; {- описание массива}i,j: byte;   {- описание переменных, служащих для заполнения массива и нахождения нечётного элемента}  e: integer; {- переменная, хранящая значение первого нечётного}beginclrscr; randomize;

{заполнение и вывод на экран массива}for i: =1 to 10 do beginfor j: =1 to 15 do begina[i,j]: =random(1000)+1; write(a[i,j]: 5); end; writeln; end; writeln;   {- отступ от массива}for j: =1 to 15 do begin  {- с первого по 15 столбик}e: =0;   {- обнуляем   переменную для нечётного элемента т.к. в каждом столбце он разный}for i: =1 to 10 do  {с первой по 10 элемент столбца}if (e=0) and (odd(a[i,j])) then  {- если переменная пока пуста и текущий элемент нечётный, то}e: =a[i,j];   {- то переменной присвоить значение текущего элементна}write(e: 5);   {- и вывести переменную на экран}end; readkeyend.