Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

// PascalABC.NET 3.0, сборка 1128
begin
  var s:=ReadString(Введите строку:);
  var d1:=Copy(s,1,s.Length div 2).Where(x->x=?).Count;
  var d2:=s.Where(x->x=?).Count-d1;
  if d1>d2 then Writeln(В первой половине больше "?")
  else
    if d1    else Writeln(Поровну "?")
end.

Тестовое решение:
Введите строку: 54ttge5t?getg5??ee4t3t?#43t4gfdaf?ss?sfsf?sfse
В первой половине больше "?"