Question

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

Answer 1

uses crt;
var
  i: integer;
  s,z: string;
begin
  clrscr;
  write('Введи текст: '); read(s);
  z:= ' '; 
  for i:=1 to Length(s) do
    if (not ((s[i]=' ') or (s[i] in ['0'..'9'])))
      then z:= s[i]+z;
  writeln('Новый текст: ',z);
end.