Выяснить, в какой половине заданной последовательности символов (первой или второй) больше символов "*" - Pascal ABC

Формулировка задачи:

Дана последовательность из n символов. Выяснить, в какой половине последовательности (первой или второй) больше символов *. (не исключается случай равенства).

Код к задаче: «Выяснить, в какой половине заданной последовательности символов (первой или второй) больше символов "*" - Pascal ABC»

textual
L:=0; R:=0;
For i:=1 to Length(S) div 2 do
Begin
  If S[i]='*' then Inc(L);
  If S[Length(S)-i+1]='*' then Inc(R);
end;

9   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ