Дано ряд чисел:1,12,123…,12345678910,
Узнать сколько чисел с первых N чисел делится на 3

Внимательнее читай правила... Заголовок исправлен

banan
Признак делимости на 3: сумма всех цифр числа делится на 3. Этого достаточно?

banan
Признак делимости даже не пригодится. :yes:
Из этого ряда на 3 нацело не делятся только числа, оканчивающиеся на 1,4,7,
поэтому

const
     num = 10;
var
     i,n:integer;
begin
     ReadLn(n);
     case n of
     1..3: WriteLn(num-n-2);
     4..6: WriteLn(num-n-1);
     7..9: WriteLn(num-n)
     end;
end.

mithquessir
А если N = 65?

Обрати внимание на запятую в конце фразы... Так что, без признака делимости - никак

volvo
Почему, это правило будет сохраняться и для дальнейших членов последовательности 12345678901234... :yes:

mithquessir
Во-первых, не

а:
1234567891011121314...

А во-вторых, какому правилу? Найди мне число делящихся на 3 чисел при:
N = 75, N = 88, N = 94

Вот, что получилось у меня: