Advertisement
vinarsky_evgeny

Untitled

Nov 22nd, 2015
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.31 KB | None | 0 0
  1. {Винарский Евгений 10_7}
  2. program t_10_7(input,output);
  3. const n=6;
  4.       s='      ';
  5. var a: packed array [1..6] of char; c: char; i: integer;
  6. begin
  7. read(c);
  8. a:=s;
  9. i:=1;
  10. s[i]:=c;
  11. while(c<>'.') do
  12.   begin
  13.     s[i]:=c;
  14.     i:=i+1;
  15.     read(c);
  16.   end;
  17. for i:=1 to 6 do
  18.   write(s[i]);
  19. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement