Добрый вечер помогите пожалуйста исправить ошибку в проге сам найти не могу.
var
s,v:string[20];
sb,m:set of 'a'..'z';
i,l,j:integer;
begin
sb:=['b','c','d','f','g','h','j','k','l','m','n','p','r','s','t','v','w','x','z'];
m:=[];
writeln('vvedite stroku');
readln(s);
i:=1;
repeat
l:=i;
while (s[i]<>' ') or (s[i]<>',') or (s[i]<>'.') do
i:=i+1;
v:=copy(s,l,i-l);
for j:=1 to length(v) do
if v[j] in sb then
m:=m+v[j];
i:=i+1;
until s[i]='.';
sb:=sb-m;
writeln(sb);
End.
Пользуйся поиском, конкретно такая задача решалась ну и очень похожие.
Что особенно порадовало:
...
sb,m:set of 'a'..'z';
...
В общем вот очень похожая задача, посмотри : http://forum.pascal.net.ru/index.php?showtopic=3767&hl=%F1%EE%E3%EB%E0%F1%ED%FB%E5+%E3%EB%E0%F1%ED%FB%E5