Множества: Дана строка, состоящая из букв и цифр. Получить две новые строки, одна из которых содержит только буквы,другая - цифры

[Гарри]

Помогите решить:
Дана строка, состоящая из букв и цифр. Получить две новые строки, одна из которых содержит только буквы, другая только цифры.

[newerow1989]

var s,s1,s2:string;
    i:integer;
begin
   Readln(s);
   s1:='';
   s2:='';
   For i:=1 to Length(s) do
      If (s[i]>='0') and (s[i]<='9') then
         s1:=s1+s[i] else
         s2:=s2+s[i];
   Writeln(s1);
   Writeln(s2);
   Readln;
end.

Сойдет?

[Гарри]

Данная задача на множества

[Аватар]

Ну и используй их
if s[i] in ['0'..'9'] then ... else ...

[Гарри]

Я сделал так

uses crt;

var A,B:set of Char;s:string;i:integer;c:char;
begin
clrscr;
writeln('Введите строку');;
readln(s);
A:=[]
for i:=1 to length(s) do
include(A,s[i]);

B:=[];

 
 if '0' in A then B:=B+['0'];
 if '1' in A then B:=B+['1'];
 if '2' in A then B:=B+['2'];
 if '3' in A then B:=B+['3'];
 if '4' in A then B:=B+['4'];
 if '5' in A then B:=B+['5'];
 if '6' in A then B:=B+['6'];
 if '7' in A then B:=B+['7'];
 if '8' in A then B:=B+['8'];
 if '9' in A then B:=B+['9'];

A:=A-B;
      writeln('множество букв');
for c:=#1 to #255 do
      if c in A then
      
      write(c);
      writeln;
      writeln('множество цифр');
for c:=#1 to #255 do
      if c in B then
      
      write(c); 
      writeln;
      
end.

Но если вводишь одинаковые буквы или цифры они выводятся как одна и программа работает только с латинскими буквами

[Аватар]

да переделай из поста #2 одну команду. Вместо

If (s[i]>='0') and (s[i]<='9') then
         s1:=s1+s[i] else
         s2:=s2+s[i];

напиши

If s[i] in ['0'..'9'] then s1:=s1+s[i] else s2:=s2+s[i];

то in и есть использование множеств. Твой способ не в дугу, проблему не решит

[Гарри]

Одного in не маловато будет

[Аватар]

Не знаю, у преподавателя спроси. Для меня бы хватило

[Poma][a]

Дык одним можно обойтись. Строка же не имеет символов отличных он букв и цифр
В сете ковычки забыли, кстати

[Аватар]

ковычки забыли, кстати

Точно, подправил