РЕБЯТА! Delphi

[Marika Polskyh]

что делать с ошибкой?

[Marika Polskyh]

А с ошибкой что делать?

[Mad_Cat]

Дано символьний рядок S. Вважаємо словами групи символів, розмежованих пропусками. Роздрукувати останнє слово

begin
s:=edit1.text;
s:=trim(s);
While pos(' ',s)<>0 do delete(s,1,pos(' ',s));
edit2.text:=s;
end;

А с ошибкой что делать?

посмотреть еще раз на пост №4

но весь наш поток не может и этго сделать

Лошары блин

[Marika Polskyh]

работает спасибо! А как первое слово распечатать, а не последнее?

[Marika Polskyh]

Дано символьний рядок S. Посередині послідовності вставити символ „!”.
все равно не работает(( я в делфи совсем дуб

[Jacksonland]

Ребят,такая же проблема,помощь очень нужна, вот задание:
Дано символьний рядок S. Кожний третій символ поміняти місцями з наступним.

[Mad_Cat]

А как первое слово распечатать, а не последнее?

begin
s:=edit1.text;
s:=trim(s);
edit2.text:=Copy(s,1,pos(' ',s)-1);
end;

Дано символьний рядок S. Кожний третій символ поміняти місцями з наступним.

Э-э-э, господа, я не побоюсь этого слова,Лингвисты, на русский язык задания перевести, вам Конституция Украины не позволяет?

[Marika Polskyh]

Дано символьная строка S. Каждый третий символ поменять местами со следующим.

[Mad_Cat]

хех Брейн ринг прям)

var s:string;
c:char;i:integer;
begin
s:=edit1.text;
for i:=1 to length(s)-1 do
 if i mod 3=0 then begin
 c:=s[i];s[i]:=s[i+1];s[i+1]:=c;
end;
edit2.text:=s;
end;

все равно не работает(( я в делфи совсем дуб

еще раз внимательно смотрим пост№ 4

[Marika Polskyh]

абра кадабра какае-то выходит(