Составьте программу, которая меняет местами первое и последнее слово в строке "беларусь ты моя синеокая"
220
291
Ответы на вопрос:
Код pascal 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 uses crt; var s1,s2,z1,z2: string; i: integer; begin z1: ='минск столица беларуси'; z2: ='беларусь ты моя синеокая'; writeln('dana stroka: '); writeln(z1); s1: =''; s2: =''; i: =1; while z1[i]< > ' ' do begin s1: =s1+z1[i]; inc(i); end; i: =length(z1); while z1[i]< > ' ' do begin s2: =z1[i]+s2; dec(i); end; delete(z1,1,length(s1)); delete(z1,length(z1)-length(s2)+1,length(s2)); write (s2,z1,s1); writeln; writeln('dana stroka: '); writeln(z2); s1: =''; s2: =''; i: =1; while z2[i]< > ' ' do begin s1: =s1+z2[i]; inc(i); end; i: =length(z2); while z1[i]< > ' ' do begin s2: =z2[i]+s2; dec(i); end; delete(z2,1,length(s1)); delete(z2,length(z2)-length(s2)+1,length(s2)); write (s2,z2,s1); readln; end.
Популярно: Информатика
-
sjsdbj21.05.2022 20:43
-
yan012523.01.2021 21:47
-
Svetakim093403.09.2022 05:56
-
nikky228like15.02.2022 06:32
-
srednenorm12.03.2020 09:05
-
grigorijperever07.01.2023 01:50
-
zka20zka2002.12.2021 06:31
-
Trinogie29.04.2022 10:29
-
Кокс38393948401.11.2022 09:34
-
natalyakazarya17.09.2021 06:52