Цитата(Guest @ 14.4.2005, 18:48)

Или вот:  Дана произвольная строка. Из каждой группы идущих подряд букв удалить все буквы расположенные на нечетных позициях...

держи!

Код

var s:string; i:integer; begin read(s); i:=1; repeat delete(s,i,1); inc(i); until i>=length(s); write(s); end;

Это сообщение отредактировал(а) Негодяй - 14.4.2005, 19:51

Негодяй
ну ну, помог челу

Цитата(Hidrag @ 14.4.2005, 20:11)

Негодяй ну ну, помог челу

мне второй день занятся нечем

Цитата

группы идущих подряд букв

Код

var s:string; i:integer; begin s:='abc de  fgh'; i:=1; repeat delete(s,i,1); if s[i]=' ' then continue; inc(i); until i>=length(s); write(s); end;

Это сообщение отредактировал(а) Негодяй - 14.4.2005, 20:26

ну спасибо тебе чувак....знал я что тут занятся кому-нибудь нечем...


И еще интересует вопрос....как мне вбить согласные буквы в массив...или че там с ними делать....и потом если они будут встречатся в строке удалить их нафиг???

Цитата(Guest @ 15.4.2005, 08:08)

ну спасибо тебе чувак....знал я что тут занятся кому-нибудь нечем...

ну развеселил

Цитата

И еще интересует вопрос....как мне вбить согласные буквы в массив...или че там с ними делать....и потом если они будут встречатся в строке удалить их нафиг???

Цитата

Дана произвольная строка, состоящая из букв латинского алфавита. Удалить все согласные буквы и подсчитать кол-во произведенных удалений....

с этой задачей тоже проблем нет, делай так: делаешь множество из согласных букв из латинского алфавита, и по-символьно сравиваешь введённую строку с элементами множества, после чего удаляешь символ и наращиваешь счётчик таких удалений. Вообщем из этого следует почитай литературу про множества поучись с ним работать - вот и всё твой решение.
Чего не понятно будет спрашивай?

PS да и зарегистрируейся или хотя бы назовись как-нибудь, Guest

http://forum.vingrad.ru/index.php?act=ST&f=84&t=48802&st=0 - решение

все чуваки спасибо...выручили...терь буду на вашем рулезном форуме тусить ума набиратся...!!!

Удаляем из строки все согласные, решение по-тупому:

Код

String s,g; .... read(s); for i:=1 to len(s) do   begin     if s[i] not in['b','B','c', 'C',.....{тут последовательно прописать все-все согласные буквы}]       then g=g+s[i]; end; Writeln(g);

Len(s)-Len(g) - это количество удалений

Это сообщение отредактировал(а) Fedor - 14.5.2005, 18:16

Предлагаю, что б не прописывать и строчные и прописные буквы сделать следующее:

Код

b:char; ======== for i:=1 to length(s) do begin b:=upcase(s[i]); if b not in ['B','C', .......'Z'] then g:=g+s[i]; end; =========

a можно еще проще:

Код

=========== b:=upcase(s[i]); if b in ['A','E','I','O','U'] then g:=g+s[i]; ===========

У нас ведь строка состоит только из латинских букв

Цитата(Mager2005 @ 14.5.2005, 14:59)

a можно еще проще:

А еще проще:

Код

if UpCase(s[i]) in ['A','E','I','O','U'] then g:=g+s[i];