Написать модуль, содержащий две процедуры: 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
Да, действительно, с чем проблеммы?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.