Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.04.2018, 14:09   #1
love26
Новичок
Джуниор
 
Регистрация: 19.04.2018
Сообщений: 4
По умолчанию Выяснить имеется ли в строке пара соседствующих букв НО или ОН, если нет, то вывести на экран сообщение об этом. Pascal ABC

Выяснить имеется ли в строке пара соседствующих букв НО или ОН, если нет, то вывести на экран сообщение об этом.



for i:=1 to length(a) do

begin

x:=copy(a,i,2);

if(x='но')or (x='он') then inc(n);

end;

if n=0 then writeln('нет') else writeln('есть.... ',n,' раз');
love26 вне форума Ответить с цитированием
Старый 19.04.2018, 20:25   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

for i:=1 to length(a)-1 do
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дано х. Вычислить sin x, cos x, ln x и записать их в порядке возрастания. Если одно из этих значений не существует, вывести сообщение об этом и написать существующие значения Firstaid Помощь студентам 1 06.04.2018 19:38
массивы. Определить номера строк, содержащих только отрицательные элементы, если их нет- вывести об этом сообщение (Delphi) неля199 Помощь студентам 8 18.04.2014 21:54
выяснить, имеется ли среди S1,…,Sn пара соседствующих букв ”НО” или ”ОН” Zhasik Паскаль, Turbo Pascal, PascalABC.NET 2 27.12.2010 10:11
Borland C++ Выяснить,имеются ли в последовательности пара соседствующих одинаковых символов andreyko1991 Помощь студентам 5 16.12.2010 08:47