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

[banan]

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

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

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

[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.