|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.06.2010, 19:50 | #1 |
Регистрация: 27.05.2010
Сообщений: 6
|
работа со строками
дана строка, состощая из групп нулей и единиц. каждая группа отделяется друг от друга одним или несколькими пробелами. найти и вывести группы, с четным кол-м элементов.
все что я смог написать: procedure TForm1.Button1Click(Sender: TObject); var h,n:integer; begin n:=strtoint (Edit1.Text); SetLength (a,n); for i:=0 to n-1 do begin edit1.Text:=inttostr(a[i]); Edit2.Text:=edit2.Text+' '+Inttostr(a[i]); begin h:=0; for i:=0 to n-1 do if a[i] mod 2=0 then h:=h+1; Edit3.Text:=inttostr(h); end; end; end; end. |
16.06.2010, 00:18 | #2 |
Форумчанин
Регистрация: 15.12.2007
Сообщений: 226
|
вот кое что на скоряк набросал.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с строками. | Qwerty91 | Помощь студентам | 2 | 15.12.2009 22:07 |
Работа со строками | konkonych | Помощь студентам | 4 | 09.04.2009 15:18 |
Работа со строками | ponchikpk | Помощь студентам | 13 | 17.03.2009 21:08 |
Работа со строками | eR- | Помощь студентам | 2 | 23.02.2009 15:11 |