program proga; Var A: text; i,j,n,m : byte; d: string; Sim:char; Begin write('Введите имя текстового файла '); {Например: "test" он создастся там где находится сама программа } read(d); assign(A,d); rewrite(A); write('Введите количество строк: N= '); readln(n); write('Введите количество символов в строке: M= '); readln(m); for I:=1 to n do begin Sim:=Chr(Ord('1')+I-1); For J:=1 to m do write(A,Sim); writeln(A); end; close(A); end.
Program proga; Var p: text; i, n : byte; s,min,m: string; Begin write('Введите имя и путь к файлу '); {Например: C:/test.txt} read(m); Assign(p,m); reset(p); read(p,s); min:=s; n:=100; for i:=1 to n do begin readln(p,s); while not eof(p) do {нахождение минимальной строки} begin readln(p,s); if length(s) <= length(min) then min:=s; end; end; close(p); write('самая короткая строка: ',min); End.
