Имеется текстовый файл.переписать в другой файл те его строки, в которых имеется более 30-ти символов.

Const   n = 30; var   fin, fout: text;   s: string; begin   assign(fin, 'input.txt');   reset(fin);   assign(fout, 'output.txt');   rewrite(fout);   while not eof(fin) do   begin       readln(fin, s);       if length(s) > n then writeln(fout, s)   end;   close(fin);   close(fout) end.

ответ:

program test;

var

  a, b, imin, imax, i: integer;

begin

  write ('введите 2 числа: ');

  readln (a, b);

  if a > b then begin

    imin : = b;

    imax : = a;

  end else if a < = b then begin

    imin : = a;

    imax : = b;

  end;

  if imin < > imax then begin

    for i : = 1 to imin do

      write (imax, ' ');

  end else

    writeln ('числа равны');

  readln;

end.

ответ:

а   в   не(а)     а+ не(а)         (а+не(

1     1     0             1                     1

1     0   0           1                       1

0   1     1             1                       0

0   0     1             1                       0

объяснение: