Помогите с Паскалем

[Владиславик]

Помогите с Паскалем

Помогите с задачкой, а то не шарю...
дана строка. удалить из неё все символы, не являющиеся заглавными буквами латинского алфавита.
заранее спасибо! буду Благодарен, если поможите

 

[Vladimir_S]

Помогите с задачкой, а то не шарю...
дана строка. удалить из неё все символы, не являющиеся заглавными буквами латинского алфавита.
заранее спасибо! буду Благодарен, если поможите

Без проблем:

VAR
 S:String;
 i:Byte;
BEGIN
 WriteLn('Enter the string:');
 ReadLn(S);
 i:=0;
 Repeat
  Inc(i);
  If (Ord(S[i])<65) or (Ord(S[i])>90) then
   begin
    Delete(S,i,1);
    Dec(i);
   end;
 Until i=Length(S);
 WriteLn(S);
 ReadLn;
END.

 

[Владиславик]

спасибо))))