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

@love26 · Регистрация: 19.04.2018

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

Pascal

…
 
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,' раз');

@Puporev · 19.04.2018, 14:34

Pascal

n:=0;
for i:=1 to length(a)-1 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, 14:47 **[ТС]**

не работает( пишет встречено "n" а ожидался раздел описания

Добавлено через 34 секунды
Puporev, не работает( пишет встречено "n" а ожидался раздел описания

@Puporev · 19.04.2018, 14:56

love26, У меня же не вся программа, я просто исправил тот кусок кода, который Вы привели. С головой видимо не дружите.

@love26 · 19.04.2018, 15:01 **[ТС]**

Puporev;12321196]love26, Я дружу! я просто вообще не знаю как эти задания делать, я учусь на первом курсе заочно и нам вот это задали....а какое должно быть начало?

@Puporev · 19.04.2018, 15:02

Сообщение от love26

а какое должно быть начало?

А каким оно было в том месте где Вы содрали свой код?

@love26 · 19.04.2018, 15:04 **[ТС]**

вот все задание

@Puporev · 19.04.2018, 15:07

Pascal

var a,x:string;
    i,n:integer;
begin
writeln('Введите строку из строчных русских букв, содержащую сочетания он и но');
readln(a);
n:=0;
for i:=1 to length(a)-1 do
 begin
  x:=copy(a,i,2);
  if(x='но')or (x='он') then inc(n);
 end;
if n=0 then writeln('нет') else writeln('есть.... ',n,' раз');
end.

@love26 0 / 0 / 1 Регистрация: 19.04.2018 Сообщений: 43
	19.04.2018, 14:47 [ТС]	3
	не работает( пишет встречено "n" а ожидался раздел описания Добавлено через 34 секунды Puporev, не работает( пишет встречено "n" а ожидался раздел описания 0

@Puporev Почетный модератор 64270 / 47569 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	19.04.2018, 14:56	4
	love26, У меня же не вся программа, я просто исправил тот кусок кода, который Вы привели. С головой видимо не дружите. 0

@love26 0 / 0 / 1 Регистрация: 19.04.2018 Сообщений: 43
	19.04.2018, 15:01 [ТС]	5
	Puporev;12321196]love26, Я дружу! я просто вообще не знаю как эти задания делать, я учусь на первом курсе заочно и нам вот это задали....а какое должно быть начало? 0

@Puporev Почетный модератор 64270 / 47569 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	19.04.2018, 15:02	6
	Сообщение от love26 а какое должно быть начало? А каким оно было в том месте где Вы содрали свой код? 0

@love26 0 / 0 / 1 Регистрация: 19.04.2018 Сообщений: 43
	19.04.2018, 15:04 [ТС]	7
	вот все задание Миниатюры 0

Опции темы