Решение достаточно сложной задачи...

[El_Bint0]

Уважаемые коллеги, решите пожалуйста задачю:
Даны две строки. Строка1 содержит ваше имя, строка2 — фамилию. Вывести все символы, которые содержатся как в строке1, так и в строке2. Подсчитать количество согласных букв в вашем имени и количество согласных — в фамилии. Выяснить, какие символы алфавита не встретились в фамилии и имени не разу.

[AVer]

Слушай, а ты сам пытался над этим думать? Задача достаточно легкая и решается как с помощью множеств, та и с помощью строк (немногим сложнее). А раз ты просто хочешь вот так вот "вывалить" задачу и получить решение сообщай бюджет...

[SuperVisor]

Начнем с того, что:

const
 glasn = ['а','е','ё','и','о','у','ы','э','ю','я'];
var
 Name, Surname: string;
 i,c:byte;
 Buf: set of char;
 alphabet :set of char = ('а','б','в','г','д','е','ё','ж','з','и','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ь','ы','ъ','э','ю','я');

Мне честно лень открывать паскаль и проверять, но должно быть правильно, тем более, если коллеги - разберешься

for i:=1 to length(Name) do
 for c:=1 to length(Surname) do
  if (Name[i]=Surname[i]) and (not(Name[i] in buf)) then Buf:=Buf+Name[i];
writeln(Buf);
Buf:='';
c:=0;
For i:=1 to Length(Name) do
 if not Name[i] in glasn then inc(c);
writeln(c);
c:=0;
For i:=1 to Length(SurName) do
 if SurName[i] in glasn then inc(c);
writeln(c);
for i:=1 to length(Name) do
 if not Name[i] in buf then Buf:=Buf+Name[i];
for i:=1 to length(SurName) do
 if not SurName[i] in buf then Buf:=Buf+SurName[i];
Buf:=Alphabet-Buf;
Writeln(Buf);

Краткий и неоптимизированный код твоей программы. Тебе прийдется самому его додумывать и тестить, плюс написать процедуру для понижения регистра символов.

[Drop]

Вриант:

Эта процедура вернет символы обеих строк и символы не входящие в них с учетом регистра:

procedure GetSymbols(Str1, Str2: string; Var SymbolsIn: String; Var SymbolsOut:
String);
var
s: string;
i: Word;
a: array [192..255] of boolean;
begin
s:=Str1+Str2;
//-------------------
//без этого куска у меня почему-то не работает
for i:=192 to 255 do
a[i]:=false;
//---------------------
for i:=1 to length(s) do
begin
if not a[ord(s[i])] then
begin
SymbolsIn:=SymbolsIn+s[i];
a[ord(s[i])]:=true;
end;
end;
for i:=192 to 255 do
if not a[i] then
SymbolsOut:=SymbolsOut+chr(i);
end;

Если учет регистра не нужен уменши интервалы до 223 и воспользуйся ф-ией UpCase

[El_Bint0]

Aver я только 1 месяц изучаю паскаль и для меня это достаточно сложная программа.SuperVisor и Drop спасибо за помощь!

[zloydocer]

Вриант:

Эта процедура вернет символы обеих строк и символы не входящие в них с учетом регистра:

procedure GetSymbols(Str1, Str2: string; Var SymbolsIn: String; Var SymbolsOut:
String);
var
s: string;
i: Word;
a: array [192..255] of boolean;
begin
s:=Str1+Str2;
//-------------------
//без этого куска у меня почему-то не работает
for i:=192 to 255 do
a[i]:=false;
//---------------------
for i:=1 to length(s) do
begin
if not a[ord(s[i])] then
begin
SymbolsIn:=SymbolsIn+s[i];
a[ord(s[i])]:=true;
end;
end;
for i:=192 to 255 do
if not a[i] then
SymbolsOut:=SymbolsOut+chr(i);
end;

Если учет регистра не нужен уменши интервалы до 223 и воспользуйся ф-ией UpCase

[WinCoder]

zloydocer Интересно, ты на даты вообще смотрел?