Ответы на вопрос:
uses crt; var s : string; i,l : integer; begin write ('введите строку: '); readln(s); for i: =1 to length(s) do if s[i]=' ' then delete(s,i,1); writeln(s); end.
Популярно: Информатика
-
makhnoliza30.01.2023 05:30
-
vadi9635624.01.2021 18:03
-
reginailt14.09.2021 13:49
-
antarxanoff200113.06.2020 20:28
-
eksergeeva517.02.2021 21:59
-
agapova200702.06.2022 19:39
-
NikaAs127.01.2021 22:42
-
alanasia200417.10.2020 14:26
-
aishaolzhas31.01.2022 20:28
-
Iiwang666628.03.2022 21:21