Дано слово. переставить первые три и последние три буквы, сохранив порядок их следования. решить дву мя способами: а) без использования оператора цикла; б) с использование

253

410

Посмотреть ответы 2

Ответы на вопрос:

vasilyeva08079oz7ptx

Информатика

4,6(15 оценок)

Var s: string; n: integer; begin write('вводите: '); readln(s); n: =length(s); s: =copy(s,n-2,3)+copy(s,4,n-6)+copy(s,1,3); writeln(s) end. ************************************************** var s: string; c: char; i,n: integer; begin write('вводите: '); readln(s); n: =length(s); for i: =1 to 3 do begin c: =s[i]; s[i]: =s[n-3+i]; s[n-3+i]: =c end; writeln(s) end. результат вводите: информатика икаорматинф