Question

URGENT!! PASCAL

Se da un text in care cuvintele sunt separate prin unul sau mai mult spatii. Pentru fiecare cuvint sa se insereze ultima litera a cuvintului inaintea primei. de Exemplu: ,,Au fost mari" rs: ,, AAu tfost imari"

Answer 1

Program problema;

var

str : string;

c: char;

word_start: integer;

i: integer;

begin

readln(str);

word_start := 1;

i := 1;

for c in str do

begin

if c = ' ' then

begin

Insert (str[i - 1],str,word_start);

i := i + 1;

word_start := i + 1;

end;

i := i + 1;

end;

Insert (str[i - 1],str,word_start);

writeln(str);

end.