Ответы на вопрос:
1) var s, s1: string; c: char; begin repeat begin read (c); s1: =s1+c; end until c=' '; read (s); write (s); end. 2)var s, s1, s2: string; c: char; begin read (s); while (c< > ' ') do begin read (c); s1: =s1+c; end; read (s2); write (s1, ' ', s, ' ', s2); end. где первым вводится слово, которое нужно вставить
Популярно: Информатика
-
Lika3921122.04.2022 23:09
-
Qwerrgggggg23.01.2022 02:54
-
Alisa6661106.09.2021 09:11
-
Nikita4324210.08.2022 14:54
-
KÖT895326.10.2022 23:52
-
shmilkovas12.07.2022 18:41
-
089280ig16.02.2021 11:50
-
gladiatorcor26.03.2020 12:00
-
kashamovasha20.06.2023 21:34
-
tastapva16.09.2022 18:24