GamerSK

spojenie cifier

Feb 28th, 2017
126
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.30 KB | None | 0 0
  1. program spojeniecifier;
  2. {$APPTYPE CONSOLE}
  3. uses crt;
  4. var c:string;
  5.     i:byte;
  6. begin
  7.   { TODO -oUser -cConsole Main : Insert code here }
  8.   write('Zadajte cifry: ');
  9.   readln(c);
  10.   i:=0;
  11.   while i<=Length(c) do
  12.     if c[i]=' ' then Delete(c, i, 1)
  13.     else Inc(i);
  14.   write(c);
  15.   readln;
  16. end.
Advertisement
Add Comment
Please, Sign In to add comment