Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {$APPTYPE CONSOLE}
- uses
- SysUtils;
- const
- N = 255;
- test = ['A'..'Z','a'..'z',' '];
- var S:String[N];
- i,k,j:integer;
- F:boolean;
- function check(s:string):Boolean;
- var i,j:integer;
- f:boolean;
- begin
- i:=1;f:=false;
- while (i<=Length(s)) and (not(f)) do
- begin
- j:=i+1;
- while (j<=Length(s)) and (not(f)) do
- begin
- if s[i]=s[j] then f:=true;
- inc(j);
- end;
- Inc(i);
- end;
- end;
- begin
- readln(s);
- s:=Trim(s);
- f:=true;
- while pos(' ',s)>0 do
- delete(s,pos(' ',s),1);
- for i:=1 to length(s) do
- begin
- if not (s[i] in test) then
- F:=false;
- end;
- if f=true then
- begin
- for i:=Length(s) downto 1 do
- begin
- if s[i]=' ' then
- begin
- k:=i;
- delete(s,k,n);
- Break;
- end;
- end;
- //..
- ..//
- end
- else
- writeln('Error symbols');
- Readln;
- Readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement