Program proga; Var p: text; i, n : byte; s,min,m: string; Begin write('Введите имя файла '); {Например: C:.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.
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.
Число получается 129 верно, так как истиной для двух высказываний
Объяснение:
Оно не больше 131 то есть 129<131 и число 129 нечетное