Паскаль (без использования множеств)
Написать функцию DELDUBL(A,B), которая добавляет в конец строки A, все буквы из A, не встречающиеся в B.
Задание, конечно, странное. Почему функция? Почему такое имя? Но, тем не менее - вот программа (такая же странная):
var a,b:string;
function DELDUBL(var A,B:string):string;
var i:integer;
begin
for i:=1 to length(a) do
if pos(a[i],b)=0 then a:=a+a[i];
DELDUBL:=a;
end;
begin
write(A = ); readln(a);
write(B = ); readln(b);
a:=DELDUBL(a,b);
writeln(a);
end.
Пример:
A = qwerty
B = wryip
qwertyqet
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
