Множества и строки

[Takada_sony]

Дана строка, состоящая из групп нулей и единиц. Каждая группа отделяется от другой одним или несколькими пробелами. Подсчитать количество повторяющихся символов в группах с нечетным количеством символов.

Помогите пожалуйста...

[Stilet]

Сама то как предполагаешь делать?
Наработки есть какие то?
И на каком языке то?

[Takada_sony]

Я перепутала задание, это не мое:/
Вот мое:
Дана строка символов, состоящая из произвольных десятичных чисел, разделенных пробелами. Вывести четные числа этой строки.
Нужно в делфи

[Grag]

Откуда брать строку символов? Читать из файла, вводить ручками в Едит?
Нужна проверка на валидность? Куда выводить результат? Такое простое задание и столько наводящих вопросов... Когда же научитесь четко мыслить и грамотно формулировать задания?

[Takada_sony]

Может что-нибудь типа этого:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes;

var
  words: String;
  list: TStringList;
  i: Integer;

begin
  write('Input numbers: ');
  readln(words);

  list := TStringList.Create;
  list.Delimiter := ' ';
  list.DelimitedText := words;
  for i := 0 to list.Count-1 do
    if((StrToInt(list.Strings[i]) mod 2) = 0) then
      Write(list.Strings[i], ' ');

  list.Free;

  writeln;
  writeln('Press enter for exit...');
  readln;
end.

[Google2010]

553566179 обращайтесь!договоримся

[Grag]

Вот интересно очень... Обращаются многие, но договариваться никто не хочет

[Takada_sony]

Я что так безнадежна???

[Takada_sony]

Задание: Дана строка символов, состоящая из произвольных десятичных чисел, разделенных пробелами. Вывести четные числа этой строки.

program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils,
Classes;

var
sl:TStringList;
s:string;
i:integer;
begin
WriteLn('Input line');
ReadLn(s);
sl:=TStringList.Create;
sl.Delimiter:=' ';
sl.DelimitedText:=s;
WriteLn('--------------');
for i:=0 to sl.Count-1 do
if (strtoint(sl[i]) mod 2 = 0) and (strtoint(sl[i]) <> 0) then
WriteLn(sl[i]);
WriteLn('--------------');
ReadLn;
end.
Работает правильно и без косяков