Подсчитать элементы последовательности которые делятся на 3

[studentus1985]

Уважаемые форумчане, помогите решить задачу посредство языка Паскаль или же просто подскажите идею.
Условия:
Есть ряд натуральных чисел: 1,2,3,4....n;
1<=n<=4000000;
Есть последовательность, которая формируется следующим образом, первым елементом является первое число из ряда: 1;
второй елемент является результатом конкатенации предыдущего елемента и второго числа из ряда: "1"+"2"="12";
третий елемент: "12"+"3"="123"...
Вобщем последовательность такая: 1,12,123,1234,12345,123456,1234567, 12345678,123456789,12345678910,1234 567891011...
Задача из n елементов этой последовательности найти количество елементов делящихся на 3.

[Poma][a]

r := 0;
cnt := 0;
for i := 1 to n do begin
   Inc(r, i); r := r mod 3; if r = 0 then Inc(cnt)
end;
WriteLn(cnt)

[studentus1985]

спасибо, оперативно у вас тут)
но за вашим алгоритмом подсчитывается количество елементов кратных 3 из ряда натуральных чисел, а нужно из последовательности, поэтому алгоритм не сработает

[Poma][a]

Это будет работать быстрее 1 сек.
Только Вы получите переполнение.. Поэтому s нужно брать по модулю 3

[studentus1985]

но возможно лучше использовать признак делимости на 3 и искать суммы цифр каждого елемента последовательности

[Poma][a]

но за вашим алгоритмом подсчитывается количество елементов кратных 3 из ряда натуральных чисел

Прошу Вас проверить мой код на правильность.. Ибо я осмелюсь Вас уверить, что он правилен..

[min@y™]

я хочу посмотреть на членЪ последовательности при n=4000000. сколько ахулионов байт он будет занимать?

[studentus1985]

Сообщение от Poma][a

Прошу Вас проверить мой код на правильность.. Ибо я осмелюсь Вас уверить, что он правилен..

Проверил, из 11 елементов последовательности которые есть в первом посте на 3 делятся только 4, но алгоритм говорит что их есть 7!

[min@y™]

но алгоритм говорит что их есть 7!

кокой-токой олгоритм-шмолгоритм?

[studentus1985]

Сообщение от min@y™

я хочу посмотреть на членЪ последовательности при n=4000000. сколько ахулионов байт он будет занимать?

, я вас понимаю, вот поэтому думаю нужно использовать признак делимости на 3 "число делится на три если сумма цифр всех разрядов этого числа тоже делится на три".
Выход один использовать не прямую последовательность: 1,12,123,1234,12345....
а последовательность из суммы цифр:1,3,6,10,15...
а это у же другое дело
Более того 10,15... можно тоже заменить на на 1+0=1, 1+5=6...