Преобразовать строку, удалив из нее все символы, не являющиеся буквами или цифрами

@demon1995 · Регистрация: 08.12.2015

1. Дана строка символов. Преобразовать строку, удалив из нее все символы, не являющиеся буквами или цифрами.

@ZX Spectrum-128 · 09.12.2015, 09:37

Pascal

const
  chars = ['А'..'Я', 'а'..'я', 'Ё', 'ё', 'A'..'Z', 'a'..'z', '0'..'9'];
 
var
  s: string;
  i: integer;
 
begin
  readln(s);
  for i := length(s) downto 1 do
    if not (s[i] in chars) then 
      delete(s, i, 1);
  writeln(s);
end.

@demon1995 0 / 0 / 0 Регистрация: 08.12.2015 Сообщений: 9
		1
	Преобразовать строку, удалив из нее все символы, не являющиеся буквами или цифрами 09.12.2015, 05:11. Просмотров 1102. Ответов 1 Метки нет (Все метки) 1. Дана строка символов. Преобразовать строку, удалив из нее все символы, не являющиеся буквами или цифрами. 0

Опции темы

Преобразовать строку, удалив из нее все символы, не являющиеся буквами или цифрами

Решение