Ответы на вопрос:
Var s,s1: string; i: integer; begin writeln ('введите строку.'); readln (s); s1: =''; for i: = 1 to length(s)-1 do begin if s[i] < > ' ' then s1: =s1+s[i]; if (s[i] = ' ')and(s[i+1] < > ' ') then s1: =s1+s[i]; end; s: =''; if s1[1] = ' ' then for i: = 2 to length(s1) do s: =s+s1[i] else for i: = 1 to length(s1) do s: =s+s1[i]; writeln(s); end.
Популярно: Информатика
-
kuchera209.12.2022 21:16
-
kiakev18.12.2020 17:06
-
Якивк12.11.2020 23:12
-
koi422.12.2020 15:53
-
yanaskazka77719.04.2022 21:17
-
LoLLLLLLLLLLLLLLLL10.02.2021 22:16
-
BanimPoIP19.10.2022 06:03
-
help101010010102034922.01.2020 04:07
-
annakokesnik22.05.2023 13:06
-
viktoriav8426.07.2020 18:32