Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ модуль

Автор: dron 1.06.2004 18:42

Написать модуль, содержащий две процедуры:
1.Дано целое число n, символы s1,s2,...,sn. Удалить все группы букв, образующих запись abcd.
2. В массиве из n элементов, подсчитать количество четверок идущих подряд членов из которых все члены равны.

Автор: GLuk 1.06.2004 23:35

Сам пробовал что-нибудь сделать??
Если реализовать первую задачу через строки, то все предельно просто (как впрочем и во второй).

Код

Var
S:String;
Begin
While Pos('abcd',S)<>0 do Delete(S,Pos('abcd',S),4)
End.

Автор: Altair 1.06.2004 23:45

Да, действительно, с чем проблеммы?