Question

Написать алгаритм и немного описать . дан текст, содержащий от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв; между соседними словами - не менее одного пробела. напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: 1) перенести первую букву в конец слова; 2) перенести последнюю букву в начало слова. program stroki; var i,j: integer; sl: array[1..30] of string[10]; st: string; c: char; begin writeln('vvedite tex: '); readln(st); j: =1; for i: = 1 to length(st) do begin if st[i] < > ' ' then sl[j] : = sl[j] + st[i]; if (st[i] = ' ') and (st[i+1] < > ' ') then j : = j + 1; end; for i: = 1 to j do begin c : = sl[i][1]; sl[i][1] : = sl[i][length(sl[i])]; sl[i][length(sl[i])] : = c; end; for i : = 1 to j-1 do if sl[i] < > sl[j] then write(sl[i] + ' '); end.

Answer 1

Http://ideone.com/hRZOec вот ссылка на рабочую программу