Advertisement
Guest User

Untitled

a guest
Apr 26th, 2018
59
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.21 KB | None | 0 0
  1. program asangoja;
  2. var
  3. s:string[40];
  4. i,b:integer;
  5. begin
  6. write('Unesi stringaru');
  7. readln(s);
  8. length(s);
  9. for i:= length(s) downto 1 do
  10. for b:= 1 to i do
  11. if s[b]=' ' then writeln(copy(s,b,b));
  12. readln;
  13. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement