Имеется

некоторая последовательность символов.

Образовать новую последовательность,

пропустив пробелы. (использовать склейку

"+") (не использовать pos,

delete,

copy ...) на паскале!

Имеется некоторая последовательность символов. Образовать новую последовательность, включив в нее символы исходной, кроме запятых. (использовать склейку "+") (не использовать pos, delete, copy ...)

Program mm; var o, oo, v, n, n1, q1, r1, y1:string; l, x, b, z, y, r, q:integer; begin v:='вычислить '; read (n) ; n1:=n; q:=pos (' + or - ', n) ; q1:=copy (n, 1, q-1) ; val (q1, x, r) ; Delete (n, 1, q) ; r:=pos (' - or + ', n) ;

Сделать из программы процедуру pascal Program kokokoko; uses crt; var fr, frn, s1:string; i:integer; begin clrscr; writeln ('Vvedite frazu:') ; readln (fr) ; fr:=fr+' '; While Pos (' ', fr) >0 do Begin s1:=Copy (fr, 1, Pos (' ', fr) - 1) ;

Определите результат выполнения фрагмента программы и запишите его в тетрадь А) а:="канатоходец" b:=copy (a, 3,2) + copy (a, 7,3) + copy (a, 1,2) writeln (b). Б) t:='компьютер' x:=copy (t, 1,4) + 'oc'+copy (t, 7,3) writeln (x)

Дано слово "форматирование". Используя все возможные сначала функции, а потом процедуры получить как можно больше новых слов. Слова составляются на паскале с помощью функций copy, lenght и pos; и процедур delete, insert, str и val.