Показать сообщение отдельно
Старый 09.12.2015, 14:40   #8 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Вот, как вариант полностью отлаженной программы:
Код:
var
 x,y:char;
 k:integer;
 b:boolean;
Begin
 k:=0;
 write('First symbol: ');
 readln(x);
 Repeat
  write('Next symbol: ');
  readln(y);
  b:=(x='+') and (y='+');
  if (x='*') and (y='*') then inc(k);
  x:=y;
 Until b;
 writeln('k = ',k);
 readln;
End.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070