Advertisement
Guest User

Untitled

a guest
Dec 14th, 2018
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.91 KB | None | 0 0
  1. {$APPTYPE CONSOLE}
  2.  
  3. uses
  4.   SysUtils;
  5.  
  6. const
  7.     N = 255;
  8.     test = ['A'..'Z','a'..'z',' '];
  9. var S:String[N];
  10.     i,k,j:integer;
  11.     F:boolean;
  12. function check(s:string):Boolean;
  13.  var i,j:integer;
  14.   f:boolean;
  15. begin
  16.  i:=1;f:=false;
  17.   while (i<=Length(s)) and (not(f)) do
  18.    begin
  19.     j:=i+1;
  20.      while (j<=Length(s)) and (not(f)) do
  21.       begin
  22.         if s[i]=s[j] then f:=true;
  23.         inc(j);
  24.       end;
  25.      Inc(i);
  26.    end;
  27. end;
  28. begin
  29.  readln(s);
  30.  s:=Trim(s);
  31.  f:=true;
  32.  while pos('  ',s)>0 do
  33.   delete(s,pos('  ',s),1);
  34.  for i:=1 to length(s) do
  35.   begin
  36.     if not (s[i] in test) then
  37.     F:=false;
  38.   end;
  39.   if f=true then
  40.   begin
  41.     for i:=Length(s) downto 1 do
  42.     begin
  43.       if s[i]=' ' then
  44.         begin
  45.          k:=i;
  46.          delete(s,k,n);
  47.          Break;
  48.         end;
  49.     end;
  50. //..
  51.  
  52.  
  53. ..//
  54. end
  55.   else
  56.    writeln('Error symbols');
  57.  
  58.     Readln;
  59.     Readln;
  60. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement