Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
nikolaka
0 / 0 / 0
Регистрация: 14.04.2015
Сообщений: 49
#1

Ввести последовательность символов - Turbo Pascal

10.12.2015, 17:49. Просмотров 226. Ответов 1
Метки нет (Все метки)

, заканчивающуюся '@'. Распечатать только те из них, которые расположены до первого символа ":"
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2015, 17:49
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Ввести последовательность символов (Turbo Pascal):

ввести в файл последовательность символов - Turbo Pascal
ввести в файл последовательность символов.Определить первый символ имеющий наибольший код и уничтожить все символы следующие за ним. ...

Дана последовательность символов. Подсчитать число вхождений символов «+», «-» , «*» - Turbo Pascal
Дана последовательность из п символов. Подсчитать: а) сколько раз среди данных символов встречается символ «+» , сколько раз символ «-»,...

Ввести последовательность не нулевых чисел - Turbo Pascal
не мог бы решить еще одну задаче плиз последнию Ввести последовательность не нулевых чисел.Найти произведение элементов...

Ввести последовательность чисел, количество которых заранее не известно - Turbo Pascal
Ввести последовательность чисел, количество которых заранее не известно. Признаком окончания ввода последовательности является ввод числа,...

Предложите пользователю ввести с клавиатуры последовательность положительных чисел - Turbo Pascal
Помогите решить задачу к завтршнему дню( 1. Предложите пользователю ввести с клавиатуры последовательность положительных чисел. Для...

Ввести с клавиатуры строку символов - Turbo Pascal
Ввести с клавиатуры строку символов.Признак окончания ввода строки-нажмите клавиши "Ввод".Программа должна определить длину введенной...

1
chealbert
237 / 127 / 45
Регистрация: 13.10.2011
Сообщений: 421
10.12.2015, 18:04 #2
Работает до 255 символов:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Uses crt;
Var s:string; sim:char; i:integer;
Begin
 clrscr;
 writeln('Vvedite bukvi, zakonchit - @');
 s:='';
 repeat
  read(sim);
  s:=s+sim;
 until (sim='@')or(sim=':');
 writeln(s);
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.12.2015, 18:04
Привет! Вот еще темы с ответами:

Возможно ли ввести строку из 10^3 символов? - Turbo Pascal
Скажите, пожалуйста, возможно ли в Pascal ввести строку из 10^3 символов? Обработать нужно только первый символ, а остальные трогать...

Ввести двумерный массив состоящий из символов - Turbo Pascal
не пойму в чем ошибка, при вводе матрицы 3*3 не работает, выводит 8 элементов program MatrixDinam; var I, J: Integer; A:...

Последовательность символов - Turbo Pascal
Рекурсии: Задана последовательность символов, описать функцию проверяющую, является ли симметричной последовательность символов в этой...

Последовательность из n символов - Turbo Pascal
Дана последовательность из n символов. Подсчитать: а) сколько раз среди данных символов встречается символ + и сколько раз - символ *. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.