Все готовые лабы по паскалю (Пусть даны целое число 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



да

нет



Случайные файлы

Файл
55348.rtf
53769.doc
26667-1.rtf
matan.doc
20516.rtf




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.