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

Узнай цену своей работы

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

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

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

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 из 5
Похожие ответы