Множества. Вывести буквы, которые встречаются только один раз

@Джессика · Регистрация: 10.04.2012

Author24 — интернет-сервис помощи студентам

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

@CodeR · 10.05.2012, 11:34

Pascal

Program bukvi;
Type mnoj=set of char;
Var mn,mn1,mn2,mn3,mn4,mn5,mn6:mnoj;
    i:char;
    s,s1,s2,s3:string;
Procedure Buk(s:string;Var mn:mnoj);
Var i:integer;
    Begin
    For i:=1 to Length(s) do
    mn:=mn+[s[i]];
    End;
Begin
    write('Введите первое предложение: ');readln(s1);
    write('Введите второе предложение: ');readln(s2);
    write('Введите третье предложение: ');readln(s3);
    mn:=[];
    Buk(s1,mn1);
    Buk(s2,mn2);
    Buk(s3,mn3);
    mn4:=mn1-mn2;
    mn4:=mn4-mn3;
    mn5:=mn2-mn1;
    mn5:=mn5-mn3;
    mn6:=mn3-mn1;
    mn6:=mn6-mn2;
    mn:=mn4+mn5+mn6;
    write('Буквы которые входят только в одно предложение: ');
    For i:='а' to 'я' do
    if i in mn then write(i,' ');
    For i:='А' to 'Я' do
    if i in mn then write(i,' ');
    readln;
End.

@Джессика 0 / 0 / 0 Регистрация: 10.04.2012 Сообщений: 11
		1
	Множества. Вывести буквы, которые встречаются только один раз 10.05.2012, 10:14. Показов 1949. Ответов 1 Метки нет (Все метки) Вывести из трех предложений русские буквы, которые встречают только один раз (то есть такие, которые есть только в одном из них). 0

	10.05.2012, 11:34

Опции темы

Множества. Вывести буквы, которые встречаются только один раз

Решение