Автор: Bronislav

Bronislav — Fri, 29 Jun 2018 09:19:28 +0000

Последнее слово из одного символа ‘А’ не засчитывает. 16 строка изменить на

if (i = Length(S)) or (S[i + 1] = ' ') then

1	if (i = Length(S)) or (S[i + 1] = ' ') then

Автор: Anton

Anton — Fri, 31 Mar 2017 18:11:47 +0000

Здесь скорее всего всё дело в русских буквах.
Я писал прогу для кодировки ASCII, но возможно у вас Юникод.
Тогда chr(128) не равняется символу А.

Попытайте в 22 строчке заменить «S[i]=chr(128)», на S[i]=’А’.

Можно ещё вывести на экран значение символа А.
Выполните такую команду:

var
  S:String;
begin
  Readln(S);
  Writeln(S[1]);
  readln;
end;

var

S:String;

begin

Readln(S);

Writeln(S[1]);

readln;

end;

И когда она запуститься введите первым символом А. И энтер.
Тогда вы узнаете какой год имеет этот символ в вашей кодировке.
И указываем его вместо 128 в chr(128).

Автор: ВС

ВС — Fri, 31 Mar 2017 17:03:39 +0000

не работает. всегда показывает ноль.

Комментарии: Решаем задачи Абрамян на Паскале. String43

Автор: Bronislav

Автор: Anton

Автор: ВС