Определить, на какую букву оканчивается второе слово в строке

@slip1995 · Регистрация: 02.05.2011

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

Помогите, сам пытался чет программа совсем не пашет(((
=)

@SuPeR XaKer · 02.05.2011, 13:33

Pascal

Uses
 CRT;
Var
 s,l:string;
 i:integer;
begin
s:='второе слово строки';
if (pos(' ',s)=0) or (pos(' ',s)=length(s)) then write('в строке нет двух слов')
else
begin
 for i:=pos(' ',s)+1 to length(s) do
  if s[i]=' ' then break
  else l:=l+s[i];
 write(l[length(l)]);
end;
end.

@slip1995 · 02.05.2011, 19:25 **[ТС]**

спасибо тебе
=)
я понял в чем моя ошибка)

@slip1995 0 / 0 / 0 Регистрация: 02.05.2011 Сообщений: 6
		1
	Определить, на какую букву оканчивается второе слово в строке 02.05.2011, 12:41. Показов 969. Ответов 2 Метки нет (Все метки) Помогите, сам пытался чет программа совсем не пашет((( =) 0

@slip1995 0 / 0 / 0 Регистрация: 02.05.2011 Сообщений: 6
	02.05.2011, 19:25 [ТС]	3
	спасибо тебе =) я понял в чем моя ошибка) 0

Опции темы

Определить, на какую букву оканчивается второе слово в строке

Решение