С помощью Паскаля найти самую короткую строку в файле и вывести её на экран. Если таких строк несколько, то последнюю из них.

Question

Мелания Калашникова

Информатика

8 сентября, 08:00

С помощью Паскаля найти самую короткую строку в файле и вывести её на экран. Если таких строк несколько, то последнюю из них.

+1

Ответы (1)

Знаешь ответ на этот вопрос?

Владимир Савельев · Answer 1

uses crt;

var f:text;

s, s1:string;

mn:integer;

begin

clrscr;

assign (f,'file1. txt');

reset (f);

mn:=255; s1:='';

while not eof (f) do

begin

readln (f, s);

if length (s)
begin

mn:=length (s);

s1:=s;

end;

end;

write ('Samaya korotkaya stroka: ', s1);

readln;

close (f);

end.