Вставьте в середину первой строки вторую и выведите на экран самое короткое слово из полученной строки

@Дарья21 · Регистрация: 20.01.2013

Author24 — интернет-сервис помощи студентам

@antibenzin · 02.12.2013, 16:42

Pascal

var a,b,s,min:string;
    i,j:integer;
begin
readln(a);
readln(b);
insert(b,a,ord(a[0]) div 2+1);
min:=a;
i:=0; j:=1;
s:='';
while i<ord(a[0]) do
begin
while (a[j]<>' ') and (j<=ord(a[0])) do
begin
s:=s+a[j];
inc(j);
end;
if a[j]=' ' then begin inc(j); inc(i); end;
if s<>'' then if ord(s[0])<ord(min[0]) then min:=s;
i:=i+ord(s[0]);
s:='';
end;
writeln(min);
end.

Но, сказать по чести, я не знаю, как определяется середина строки в случае нечетного количества символов, из которых она состоит.

@Дарья21 1 / 1 / 1 Регистрация: 20.01.2013 Сообщений: 17
		1
	Вставьте в середину первой строки вторую и выведите на экран самое короткое слово из полученной строки 02.12.2013, 07:32. Показов 2274. Ответов 1 Метки нет (Все метки) Вставьте в середину первой строки вторую и выведите на экран самое короткое слово из полученной строки 0

	02.12.2013, 16:42

Вставьте в середину первой строки вторую и выведите на экран самое короткое слово из полученной строки

Решение