Ответы на вопрос:
Конечно, странное. почему функция? почему такое имя? но, тем не менее - вот программа (такая же странная): 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
Популярно: Информатика
-
LiraReeman22.02.2021 05:48
-
kamallm712oxbgkk13.06.2023 19:07
-
unknown201523.08.2021 03:55
-
stasya1068720.04.2021 15:30
-
Мария2004100730.04.2022 21:01
-
Срочный10304.12.2020 12:30
-
Martishevska31.08.2020 23:51
-
Лолыч1120.05.2020 21:30
-
vikasaaan19.04.2022 00:23
-
Cunctator01.02.2022 20:40