Удалить латинские буквы из текста.

@WhiteChemist · Регистрация: 16.11.2016

Author24 — интернет-сервис помощи студентам

Тема такая: Нужна прога которая при вводе информации удаляет все латинские буквы. Я вот сделал код:

Pascal

program p3;
var
i,e:byte;
s:string;
begin
write('Введите текст:');
readln(s);
for i:=1 to length(s) do
if s[i] in ['A'..'Z'] then delete(s,i,1);
for e:=1 to length(s) do
if s[e] in ['a'..'z'] then delete(s,e,1);
write('Изменённый текст: ',s);
writeln;
end.

В итоге при выполнении пишет что цикл for должен описываться в заголовке цикла, и пишет еще Индекс находится вне границ массива. Если например убрать эти строки for e:=1 to length(s) do
if s[e] in ['a'..'z'] then delete(s,e,1);
То работает и фильтрует только большие буквы.

@Puporev · 17.11.2016, 09:06

Pascal

var i,e:byte;
    s:string;
begin
write('Введите текст:');
readln(s);
for i:=length(s) downto 1 do
if s[i] in ['A'..'Z','a'..'z'] then delete(s,i,1);
writeln('Изменённый текст: ',s);
end.

	17.11.2016, 09:06