trololo1
Опубликовано 7 лет назад по предмету Информатика от trololo1


Программа в Pascal ABC. С клавиатуры вводится два слова. Надо вывести на 

экран те буквы, которые  есть и в одном и во втором слове (печатать буквы без повторений)

  1. Ответ
    Ответ дан ivanpakalnishkis

    var

     st:array[0..10000]of char; s,s1:string; g,g1,i,j,z:longint; t:char;

    begin

     z:=0;

     readln(s);

     readln(s1);

     g:=length(s);

    g1:=length(s1);

    for i:=1 to g do

    for j:=1 to g1 do if s[i]=s1[j] then

    begin

     inc(z);

     st[z]:=s[i];

     break;

    end;

    for i:=1 to z-1 do for j:=i+1 to z do if st[i]>st[j] then

    begin

     t:=st[i];

     st[i]:=st[j];

     st[j]:=t;

    end;

    st[z+1]:='-';

    for i:=1 to z do i st[i]<>st[i+1] then write(st[i],' ');

    end.

     

     

Не тот ответ, который вам нужен?
Найди нужный
Самые новые вопросы
99335871
Другие предметы - 11 месяцев назад

В какой оболочке земли живёт большинство живых организмов?

99335871
Другие предметы - 11 месяцев назад

Из каких неживых частей состоит экосистема

mandrykin
Другие предметы - 11 месяцев назад

На какие расы делятся население земли

kinda2007
Другие предметы - 11 месяцев назад

Определение статуса военнослужащего (краткий ответ!!)

Санёк1999
Другие предметы - 11 месяцев назад

Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.

Задай вопрос

Лучшие за месяц


Интересные статьи:


Пошаговый план подготовки к ЕГЭ за полгода для школьников
Не сдал ЕГЭ пересдача апелляция альтернативные пути
10 ошибок на ЕГЭ по русскому и способы их избежать
Выбор предметов ЕГЭ для поступления
Секреты подготовки к экзаменам дома от отличников