Ответы на вопрос:
Program pr; uses crt; var s: string; i: integer; begin writeln('введите предложение'); readln(s); writeln; writeln(s); for i: =1 to length(s) do begin if (s[i]< > ' ') then write(s[i]) else writeln; end; readkey; end.
Популярно: Информатика
-
Bro45680421.05.2020 17:14
-
КекЛолКарвалол19.05.2022 23:14
-
EseniaVoznesenskaya01.02.2021 06:51
-
kyzminlexa0619.03.2023 01:03
-
svetik1098706.02.2021 02:11
-
innalemesh128.01.2020 01:46
-
Saeg02.05.2021 13:19
-
Nаstуа2304.05.2021 14:03
-
poroshind24.09.2021 11:27
-
Ангелина710203.05.2022 19:07