Я не знаю как это решать, поэтому просто составил программу, которая вычислит ответ))
var i,i2,sum,ans:integer; s:string; begin for i:=1 to 1024 do begin sum:=0 s:=inttostr(i); for i2:=1 to length(s) do sum:=sum+strtoint(s[i2]); if sum mod 4 =0 then inc(ans); end; writeln(ans); end.
Ответ: 253
Var
m, n, n10, n100: integer;
begin
write('Введите трехзначное число: ');
readln(m);
if (m > 99) and (m < 1000) then
begin
n100 := m div 100;
n10 := (m mod 100) div 10;
n := m mod 10;
if (n + n10 + n100) mod 7 = 0 then writeln('Сумма цифр кратна семи')
else writeln('Сумма цифр не кратна семи')
end
end.
Тестовое решение:
Введите трехзначное число: 473
Сумма цифр кратна семи
Объяснение:
В квадратных скобках указывается порядковый номер числа константы "b", т.е. число 11 стоит на 5 месте относительно других значений в массиве, как это указано в квадратных скобках.
Можно просто открыть ворд и проделать эту работу.
Если набрать в редакторе =rand.old(5,4) и нажать Enter, то <span>вместо этой команды появятся пять абзацев, в каждом из которых четыре раза повторится предложение перекусить.
</span>Если набрать в редакторе =lorem() и нажать Enter, то <span>вместо этой команды появится кусок текста из Lorem ipsum.
</span>Если набрать в редакторе =rand(5) и нажать Enter, <span>вместо этой команды появятся пять случайных абзацев из Справки.
</span>Если выделить кусок текста и нажать комбинацию Shift+F3, то <span>изменится регистр для всего этого куска (весь текст станет набран заглавными, а если нажать еще раз, то строчными буквами).
</span>Если в процессе работы над документом нажать F4, то <span>Word повторит последнюю команду (если вы до этого поставили точку, то он еще раз поставит точку и т.п.).
</span>Если набрать в редакторе =rand(1) и нажать Enter, то <span>вместо этой команды появится случайный абзац из Справки.
</span>Если нажать комбинацию Shift+Alt+D, то <span>будет вставлена текущая дата.
</span>
Этот список можно воспринимать как запись последовательных целых чисел в четвертичной системе счисления с цифрами A=0, К=1, Р=2, У=3. Видно, что при такой замене букв на цифры на 1-м месте стоит ноль (00000), на 2-м единица, ..., на 450-м - 449. Переводим 449 в четвертичную систему, получаем 13001. Заменяем цифры на буквы, и в итоге узнаем, что на 450-м месте будет слово КУААК