Ответы на вопрос:
Объяснение:
Промышленный робот Транспортный робот
Подводный робот
Бытовой робот
Боевой робот
Зооробот
Звероробот
Летающий робот
Медицинский робот
Var s,s1,s2: string; p,k: integer; beginwriteln('введите строку: '); readln(s); s1: =s+' '; while pos(' ',s1)> 0 do delete(s1,pos(' ',s1),1); while s1< > '' do begin p: =pos(' ',s1); s2: =copy(s1,1,p-1); delete(s1,1,p); k: =1; while pos(s2,s1)> 0 do begin k: =k+1; delete(s1,pos(s2,s1),p); end; if k=1 then writeln(s2); end; end. пример: введите строку: to be or not to be or not
Популярно: Информатика
-
AlexRico09.07.2021 20:12
-
AlisaSkun316.06.2021 04:49
-
amid200307.01.2022 23:30
-
ExploreYT12.01.2021 14:44
-
vladpasin3406.10.2022 11:50
-
Ланка3023.02.2022 15:09
-
diamond1277p08lfa26.04.2022 15:43
-
Luchik2207.04.2023 09:13
-
alexaaa224.07.2020 20:55
-
Amarov08.12.2021 10:53