Пусть даны целое число n (Все готовые лабы по паскалю)
Описание файла
Файл "Пусть даны целое число n" внутри архива находится в следующих папках: 1kyrs_1semestr_paskal_labworks, dz 2. Документ из архива "Все готовые лабы по паскалю", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве МГТУ им. Н.Э.Баумана. Не смотря на прямую связь этого архива с МГТУ им. Н.Э.Баумана, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "информатика" в общих файлах.
Онлайн просмотр документа "Пусть даны целое число n"
Текст из документа "Пусть даны целое число 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
да
нет