Никак не допру как решить задачу.
Даны строки А и В (не обязательно равной длины). Составить программу, формирующую строку С из совпадающих по позиции и коду символов строк А и B. Например: А="Эдельвейс", В="Идальго", тогда
С="дль". Вывести на экран полученную строку С.
var a,b:string;
i:byte;
begin
writeln('Enter string ');
readln(a);
b:='';
for i:=1 to length(a) do
b:=b+succ(a[i]);
writeln('Result : ',b);
readln;
end.
lisagera, в случае если в результате добавления 1-цы получаем НЕ букву кириллицы, что происходит?
Bokul, а какое отношение твой код имеет к этой задаче ? Помоему он выполняет не то что требуется в задании ...
Наверное вот так ?
uses crt;
function GetRes(lo, hi : string) : string;
var
i : byte;
s : string;
begin
s := '';
for i := 1 to length(lo) do
if lo[i] = hi[i] then s := s + lo[i];
GetRes := s;
end;
var
a, b, c : string;
begin
clrscr;
a := 'Эдельвейс';
b := 'Идальго';
if length(a) > length(b) then
c := GetRes(b, a)
else
c := GetRes(a, b);
writeln( c );
readln;
end.
klem4, а там это... Раньше другое задание было...
Ага, я понял уже )