Цитата:
Сообщение от Машуня
1.С клавиатуры вводится строка длиной N, 2<N<100. Удалить в строке все латинские прописные символы. Результат вывести на экран.
|
Беда в том, что Вы и не пытаетесь ничего понять! И зачем тогда учиться? Ведь не далее, как 5 дней назад я выложил Вам решение аналогичной задачи:
Не знаю как решить задачи на паскале, помогите пожалуйста! , но Вы, очевидно, не пожелали даже разобраться в этой программе. Ну хорошо, ну дам я Вам решение этой:
Код:
VAR
i:INTEGER;
S:STRING;
BEGIN
WriteLn('Enter the string:');
ReadLn(S);
For i:=1 to Length(S) do
If (Ord(S[i])<65) or (Ord(S[i])>90) then Write (S[i]);
WriteLn;
ReadLn;
END.
А дальше что? Завтра Вам дадут задачу "заменить вопросительные знаки в строке восклицательными" и Вы опять прибежите сюда? Ну-ну... Грустно это всё...