Question

Склавиатуры вводится произвольная строка, состоящая из символов латинского алфавита. группы символов, раздельные пробелами, и не имеющие пробелов внутри будем называть словами. напишите программу, которая заменяет каждое слово строки на его длину. длина строки не более 100 символов. например: исходная строка: "an example of a string of characters " преобразованная строка "2 7 2 1 2 10"

Answer 1

Pascal

 var   
s : string;   
i,k : integer; 
begin 
readln (s); 
k := 0; 
for i := 1 to Length(s) do   
begin   
if s[i] <> ' ' then     
k := k + 1   
else     
begin     
write (k+s[i]);     
 k := 0;   
end;   
end; 
end.