01 семестр / Лабораторные работы / Все готовые лабы по паскалю / dz 2 / Пусть даны целое число n

Пусть даны целое число n, s1,s2,…,sn. Удалите из данной последовательности все группы букв, образующих запись abcd, то есть получите новую последовательность , не содержащую этих групп литер.

• Текст программы:

var n:integer;

s:string;

z:byte;

begin

writeln('vvedite chislo simvolov');

readln(n);

writeln('vvedite stroky simvolov');

readln(s);

z:=1;

while z<>0 do

begin

z:=pos('abcd',s);

if z>0 then delete (s,z,4);

end;

writeln(s);

readln;

end.

• Исходные данные: vvedite chislo simvolov 34; vvedite stroky simvolov: sderabcdrtyf; sderrtyf

да

нет