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"
Răspunsuri la întrebare
Răspuns de
2
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.
Alte întrebări interesante
Limba română,
8 ani în urmă
Engleza,
8 ani în urmă
Matematică,
8 ani în urmă
Limba română,
8 ani în urmă
Chimie,
9 ani în urmă