Массив(Паскаль).Только подправить!

[Cas01]

спасииибо!!!!!!!!Работает!!!!!!!!!! !!!!!!!!!!!!!
Мне уже неудобно говорить, но у меня ещё одна задача.........
там она сделана, но препод сказал переделать,и сделать через множества!!!А Их я вообще не знаю...пропустил!!!!!!

[Cas01]

не удобно говорить , но всёё таки - не поможешь?
я думаю там тебе не составит труда её реализовать.....

[Cas01]

просто завтра если не допуск к сессии поставит,это ппц будет.

[Базиля]

Ну и где же она?))

[Cas01]

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


вот то что есть - program Lab_7;
var str,p,k,str1:string;
i,N,L:integer;
begin
writeln('vvod stroki');
readln(str);
N:=1;
L:=1;
for i:=1 to length(str) do
if (str[i]>='0') and (str[i]<='9')
then
begin
str1:=copy(str,i,1);
p:=concat(p,str1);
inc(N);
end
else
begin
str1:=copy(str,i,1);
k:=concat(k,str1);
inc(L);
end;
Writeln('chisla:');
writeln(p);
writeln('bukvi:');
writeln(k);
readln;
end.



но он сказал что надо через множества сделать!!!!!!!!

[Базиля]

стукни в асю

[Cas01]

у меня аси нету,давай в контакте

[Базиля]

кидай свой айди в лс

[Cas01]

вот ------- 62262105

[Базиля]

короче лови сюда

program zad1;
type symbol=set of char;
var s,s1,s2:string;
m,n:symbol;

i:integer;
begin
m:=['a'..'z','A'..'Z'];
n:=['0'..'9'];
readln(s);
s1:='';
s2:='';
for i:=1 to length(s) do
begin
if s[i] in m then
s1:=s1+s[i];
if s[i] in n then
s2:=s2+s[i];
end;
if s1='' then
writeln('букв в предложениий нет') else
writeln('буквы=',s1);
if s2='' then writeln('чисел в предложении нет') else
writeln('числа=',s2);
end.