Цитата:
Сообщение от Владиславик
Помогите с задачкой, а то не шарю...
дана строка. удалить из неё все символы, не являющиеся заглавными буквами латинского алфавита.
заранее спасибо! буду Благодарен, если поможите
|
Без проблем:
Код:
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.