Цитата:
Сообщение от Oksana777
а если у меня случай, что слов, в которых нету букв из первого слова, нет, как вывести сообщение "Таких слов не найдено"?
|
Легко. Например, так:
1. Вводим еще одну булевскую переменную, например, t1. Соответсвенно, вместо
пишем
2. Конец программы заменяем на
Код:
writeln('Words containing no letters of the first word:');
t1:=true;
for i:=2 to n do
begin
t:=true;
j:=0;
repeat
Inc(j);
if a[i][j] in r then t:=false;
until not(t) or (j=length(a[i]));
if t then
begin
write(a[i]+' ');
t1:=false;
end;
end;
If t1 then writeln('No such words!');
readln
end.