числа, делимость Опции

[banan]

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

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

Сообщение отредактировано: volvo - 7.12.2004 0:37

[volvo]

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

[mithquessir]

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.

[volvo]

mithquessir
А если N = 65?

Дано ряд чисел:1,12,123…,12345678910,

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

[mithquessir]

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

[volvo]

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

12345678901234...

а:
1234567891011121314...

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

[volvo]

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

Код

var n: longint;
begin
 readln(n);
 writeln('number = ', 2*(n div 3) + Byte((n mod 3) = 2));
end.

Сообщение отредактировано: volvo - 7.12.2004 22:37