• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

    Если вы у нас впервые, загляните на страницу о проекте, чтобы узнать больше. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

Символьный массив

C

Chelios_rus

Новые
Регистрация
13 Дек 2013
Сообщения
21
Реакции
0
Баллы
0
Символьный массив

Необходимо написать программу на языке паскаль.

Из символьного массива исключить все элементы, содержащие символ 'A'.
 
Уточните формулировку. Что за "символьный массив"? Если это массив символов, то его элементы не могут ничего "содержать": каждый элемент есть один-единственный символ.
 
нужна программа которая бы исключала символ А из списка всех символов.
например: я ввожу символы ABCJRUFKDAKF, а в ответ мне программа должна выдать все те же символы, но без символа А, т.е. BCJRUFKDKF, должно быть так
 
Chelios_rus написал(а):
нужна программа которая бы исключала символ А из списка всех символов.
например: я ввожу символы ABCJRUFKDAKF, а в ответ мне программа должна выдать все те же символы, но без символа А, т.е. BCJRUFKDKF, должно быть так
Нажмите для раскрытия...
Ну тогда, например, так:
Код: 
Var
 S,S1:String;
 i:Integer;
Begin
 Writeln('Enter the symbol array:');
 Readln(S);
 S1:='';
 For i:=1 to Length(S) do
  if S[i]<>'A' then S1:=S1+S[i];
 Writeln('Resultant array:');
 Writeln(S1);
 Readln
End.
 
Войдите или зарегистрируйтесь для ответа.
Назад
Сверху