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

Определить, удалось ли поздороваться

15.10.2017, 07:12. Просмотров 762. Ответов 1
Метки нет (Все метки)

Как-то Вася решил, что будет печатать с закрытыми глазами. Он зашёл на сайт и решил поздороваться со всеми. Вася написал слово x. Считается, что у Васи получилось поздороваться, если из напечатанного слова можно удалить некоторые буквы так, чтобы получилось слово "privet".
Например, если Вася напечатал слово "prfffffivjjtet", то он поздоровался, а если он напечатал "prefveti", то он не поздоровался.
По заданному слову x определите, удалось ли Васе поздороваться.
На вход подаётся слово x, которое напечатал Вася. Оно состоит из маленьких букв латинского алфавита и его длина не меньше 1 и не больше 101 буквы. Если Васе удалось поздороваться, выведите "Yes". Если же не удалось, выведите "No".
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.10.2017, 07:12
Ответы с готовыми решениями:

Поздороваться с пользователем
Задача: Поздороваться с пользователем и считать кол-во символов в его имении. Первое я сделал а...

Определить количество букв в введенной фамилии и поздороваться по имени
Ввести фамилию имя и определить количество букв в фамилии и поздороваться по имени.

Qt не удалось определить тип отладчика
Установил qt 5.7 MinGW в итоге немогу ничего скомпилировать, пишет что отладчик не определен,...

RDP определить удалось ли авторизоваться
Здравствуйте. Практикуюсь, пишу софт для работы с RDP(википедия), нашел пример: (code-project)....

Определить сколько раз человеку удалось запечатлеть комету, включая год рождения и смерти
ВСОШ районный этап, 7-8 класс, задача 5 Комета Бармалея видна с земли каждые C лет, A - год...

1
Cyborg Drone
Модератор
5907 / 3500 / 2567
Регистрация: 17.08.2012
Сообщений: 11,225
15.10.2017, 14:58 2
Лучший ответ Сообщение было отмечено corpdid как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const p = 'privet';
var x: string;
    i, j: integer;
begin
  readln(x);
  i := 1;
  while (i <= length(p)) and (j < length(x)) do
    begin
      inc(j);
      if p[i] = x[j] then inc(i)
    end;
  if i > length(p)
    then writeln('Yes')
    else writeln('No')
end.
Программа написана для сдачи на "олимпийский" или "обучающий" сайт, поэтому умышленно написана по-кретински, без никакого интерфейса.

Считаю, что переменная j по умолчанию инициализируется нулём, если это не так, то добавьте после первого begin строку
Pascal
  j := 0;
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.10.2017, 14:58

Ключевое слово constexpr: как определить удалось ли вычислить возвращаемое значение на этапе компиляции?
https://habrahabr.ru/post/228181/ Как определить удалось ли вычислить возвращаемое значение на...

InstallUtil. Не удалось загрузить файл или сборку. Не удалось найти указанный файл
Имеется bat файл для запуска службы windows: ...

Ошибка: не удалось определить связь между двумя объектами, поскольку они привязаны к разным объектам ObjectContext
При вызове этого метода выдает ошибку не удалось определить связь между двумя объектами, поскольку...


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

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

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