Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Наталия12345
0 / 0 / 0
Регистрация: 09.12.2017
Сообщений: 1
1

Напечатать первое вхождение букв в тексте , сохраняя их порядок

09.12.2017, 15:24. Просмотров 686. Ответов 1
Метки нет (Все метки)

Дан текст из строчных латинских букв, цифр и знаков ""+"", за которыми следует точка. Напечатать первое вхождение букв в тексте , сохраняя их порядок
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2017, 15:24
Ответы с готовыми решениями:

Напечатать первые вхождения букв в текст, сохраняя их взаимный порядок
дан текст из строчных латинских букв,за которыми,следует точка.напечатать...

Напечатать первые вхождения букв в текст, сохраняя их взаимный исходный порядок
Дан текст из строчных латинских букв, за которым следует точка. напечатать...

Сформировать множество, состоящее из первых вхождений букв в последовательность, сохраняя их исходный порядок
Дана последовательность из строчных латинских букв. Сформировать множество,...

Напечатать строку, предварительно удалив первое вхождение ‘w’,
1)Дана строка латинских символов. Напечатать эту строку, предварительно удалив...

Дан текст. Распечатать: Первые вхождения букв в текст, сохраняя их взаимный начальный порядок
Данный текст из строчных латинских букв, за которым следует точка. Распечатать:...

1
Cyborg Drone
Модератор
5471 / 3287 / 2480
Регистрация: 17.08.2012
Сообщений: 10,551
09.12.2017, 21:20 2
Лучший ответ Сообщение было отмечено Наталия12345 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var s: string;
    i: integer;
 
begin
  writeln('Enter string:');
  readln(s);
  i := pos('.', s);
  if i > 0 then delete(s, i, length(s) - i + 1);
  i := 1;
  while (i <= length(s)) and not (s[i] in ['a'..'z']) do inc(i);
  if i <= length(s)
    then begin
      writeln('First ocurrence of latin letters:');
      while (i <= length(s)) and (s[i] in ['a'..'z']) do
        begin
          write(s[i]);
          inc(i)
        end;
      writeln
    end
    else writeln('Latin letters are not found');
  readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2017, 21:20

Поменять порядок букв в тексте на обратный
поменять порядок букв в тексте на обратный. помогите пожалуйста

Напечатать все слова, отличные от последнего слова, которые состоят из тех же букв, что и первое
п.1. - Напечатать все слова, отличные от последнего слова, которые со-стоят из...

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


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

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

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