Алгоритмы со строковыми величинами. Решение задач
Задача 8а Дана строка, которая вводится с клавиатуры и состоит из двух слов, разделённых пробелом Вывести на экран каждое слово с новой строки Задача 6а Program z6a; Var a,a1,a2:string; p,L : integer; {L – длина величины, p – позиция пробела} Begin {ввод исходных данных} writeln ('введите строку, состоящую из двух слов, разделённых пробелом'); readln(a); {вычисления} L:=length(a); p:=pos(' ',a); a1:=Copy(a,1,p-1); a2:= Copy(a,p+1,L-p); {вывод результатов} writeln (a1); writeln (a2); End. Записать! Задача 8б Дана строка, которая вводится с клавиатуры и состоит из двух слов, разделённых пробелом Переставить местами слова строки Program z6a; Var a,a1,a2:string; p,L : integer; {L – длина величины, p – позиция пробела} Begin {ввод исходных данных} writeln ('введите строку, состоящую из двух слов, разделённых пробелом'); readln(a); {вычисления} L:=length(a); p:=pos(' ',a); a1:=Copy(a,1,p-1); a2:= Copy(a,p+1,L-p); {вывод результатов} writeln (a1); writeln (a2); End. Что изменится в данном решении? S:=a2+’ ‘ +a1; Задача 6б writeln (S); S:string