Задание:
Программа в Pascal ABC. С клавиатуры вводится два слова. Надо вывести на экран те буквы, которые есть и в одном и во втором слове (печататьбуквы без повторений)
Решение:
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 dofor j: =1 to g1 do if s[i]=s1[j] thenbegin 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] thenbegin 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.
Знаете другой ответ?