У скольких натуральных чисел от 1 до 2 в степени 10 сумма цифр кратна четырем?

Задачу можно решать различными способами. Можно рассуждениями-вычислениями, а можно просто написать программу, в которой вычисляется нужное значение:

var i, a, s, k:integer;

begin

k:=0;

for i:=1 to 1024 do

begin

a:=i; s:=0;

while a0 do

begin s:=s+a mod 10; a:=a div 10; end;

if s mod 4 = 0 then k:=k+1;

end;

writeln ('k = ', k) ;

end.

Результат:

k = 253