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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 30.12.2010, 15:08   #1
Zhasik
Пользователь
 
Регистрация: 27.12.2010
Сообщений: 18
По умолчанию Даны натуральное число n и символы S1,…,Sn

Даны натуральное число n и символы S1,…,Sn
b) выяснить, имеется ли среди S1,…,Sn пара соседствующих букв ”НО” или ”ОН”



zdravstvuite pomogite pojaluista! a to na ekzamen ne zapustyat!((( zaranie spasibo bol'shoe!
Zhasik вне форума Ответить с цитированием
Старый 30.12.2010, 16:44   #2
Ponkole
Форумчанин
 
Регистрация: 02.07.2010
Сообщений: 167
По умолчанию

Задумайся: я школьник, у которого еще не началось программирование, просто интересуюсь программированием и решаю задачи за тебя, ну ели честно мне нравится это, но за вознаграждение.


Код:
uses CRT;
var r,l:char;
     n,i:integer;
    otbet:boolean;
begin
clrscr;
otbet:=false;
readln(n);
writeln;
for i:=1 to n do
begin
l:=r;
read(r);
if ((r='Н') and (l='О')) or ((r='О') and (l='Н') then
otbet:=true;
end;
clrscr;
if otbet then write(' присутствует ') else
 write('отсутствует');
end.
Если я тебе помог, помоги и ты мне +ом с комментарием
Ponkole вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны натуральное число m Zhasik Паскаль, Turbo Pascal, PascalABC.NET 2 30.12.2010 16:36
Даны натуральное число n, Хутор Паскаль, Turbo Pascal, PascalABC.NET 2 17.12.2010 19:18
даны действительное число а, натуральное число n [Паскаль] Анна22 Помощь студентам 2 07.12.2010 20:31