Предмет: Информатика,
автор: S79093474432
Удалите из символьной строки первые четыре буквы латинского алфавита.
Pascal с помощью функции delete.
Ответы
Автор ответа:
0
var
s:string;
i:integer;
begin
Write('Введите строку: '); Readln(s);
for i:=Length(s) downto 1 do
if Pos(s[i],'ABCDabcd')>0 then Delete(s,i,1);
Writeln('Результат: ',s)
end.
Пример
Введите строку: Carlsbad is an affluent seaside resort city
Результат: rls is n ffluent sesie resort ity
s:string;
i:integer;
begin
Write('Введите строку: '); Readln(s);
for i:=Length(s) downto 1 do
if Pos(s[i],'ABCDabcd')>0 then Delete(s,i,1);
Writeln('Результат: ',s)
end.
Пример
Введите строку: Carlsbad is an affluent seaside resort city
Результат: rls is n ffluent sesie resort ity
Интересные вопросы
Предмет: Математика,
автор: Cinoesh002
Предмет: Математика,
автор: zuevak4999
Предмет: Алгебра,
автор: dimasivolapov49
Предмет: История,
автор: Alenka898
Предмет: Биология,
автор: Jamila05