|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
Посчитать сколько одинаковых чисел
Есть строка
1231247856123412312847163512341 как посчитать сколько там 1 - сколько 2 - сколько 3 и т.д до 9-ти? Нет ничего не возможного. Вопрос только во времени... |
#2
|
||||
|
||||
Код:
var a:array[0..9]of integer; ... for i:=1 to length(s) do inc(a[strtoint(s[i])]); jmp $ ; Happy End! The Cake Is A Lie. Последний раз редактировалось Bargest, 06.12.2010 в 20:16. |
#3
|
||||
|
||||
это же не будет работать...
Нет ничего не возможного. Вопрос только во времени... |
#4
|
||||
|
||||
Работает:
Код:
{$APPTYPE CONSOLE} uses SysUtils; var a:array[0..9]of integer; i:integer; s:AnsiString; begin s:='0123450670'; for i:=1 to length(s) do inc(a[strtoint(s[i])]); writeln(a[0]); readln; end. jmp $ ; Happy End! The Cake Is A Lie. |
#5
|
||||
|
||||
Спасибо огромное - реально работает
Нет ничего не возможного. Вопрос только во времени... |