20.05.2012, 01:06
|
#6 (permalink)
|
|
VIP user
Регистрация: 10.03.2011
Сообщений: 765
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
|
первая задача валялась у меня на компе, она считает самую короткую строку, остальное думаю сам доработаешь.
Цитата:
Uses crt;
Var p: text;
i, n, dlinS, dlinMin: byte;
s,min: string;
Begin
ClrScr;
Assign(p,'d:\myfile'); rewrite(p);
write('Количество строк: '); readln(n);
writeln('Введите строки ');
for i:=1 to n do
begin
write(i,': '); readln(s);
writeln (p,s);
end;
Close (p);
Assign(p,'d:\myfile'); reset(p);
read(p,s); min:=s;
for i:=1 to n do
begin
readln(p,s);
dlinS:=length(s); {длина строки}
dlinMin:=length(min); {длина min строки}
if dlinS<dlinMin then min:=s; {нахождение минимальной строки}
end;
close(p);
while not eof(p) do
begin
readln(p,s);
if length(s) < length(min) then min:=s;
end;
writeln('Самая короткая строка: ', min);
Readln
End.
|
|
|
|