Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 175439
19.12.2009, 22:16
0.00 руб.
0 3 1
Компьютеры Программирование
Здравствуйте уважаемые эксперты вот такая вот задачка...
Задание
Заданы два слова. Определить буквы, которые не являются общими для обоих слов.

Обсуждение

давно
puporev
Профессор
401888
1232
20.12.2009, 21:20
общий
это ответ
Здравствуйте, luba tixomirova!
Решение в приложении.

Приложение:
uses crt;
var s1,s2:string;
i,j:byte;
begin
clrscr;
write('Слово 1: ');readln(s1);
write('Слово 2: ');readln(s2);
writeln('Буквы, которые не являются общими для обоих слов:');
for i:=1 to length(s1) do
if pos(s1[i],s2)=0 then write(s1[i],' ');
for i:=1 to length(s2) do
if pos(s2[i],s1)=0 then write(s2[i],' ');
readln
end.
Неизвестный
21.12.2009, 16:34
общий
а можно получить подробное описание к ответу
давно
puporev
Профессор
401888
1232
21.12.2009, 16:41
общий
Код:
uses crt;{модуль для работы с экраном - не обязательно}
var s1,s2:string;{2 слова}
    i,j:byte;{счетчики циклов}
begin
clrscr;{очищаем экран - не обязательно}
write('Слово 1: ');readln(s1);
write('Слово 2: ');readln(s2);
writeln('Буквы, которые не являются общими для обоих слов:');
for i:=1 to length(s1) do{идем по слову 1}
if pos(s1[i],s2)=0 then write(s1[i],' ');{если первое вхождение (pos())=0, нет его во втором слове, выводим}
for i:=1 to length(s2) do{идем по второму слову}
if pos(s2[i],s1)=0 then write(s2[i],' ');{то же самое}
readln{задержка для чтения результата, нажать Enter}
end.
Форма ответа