21div4=5
7div4=1
21mod4=1
7mod4=3
4096 Кб - 3 Мб + 49 байт = 4 Мб - 3 Мб + 49 байт = 1 Мб + 49 байт = 2^23 бит + 49 * 8 бит = 8388608 бит + 392 бита = 8389000 бит
Var a,b,i,s:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
s:=0;
for i:=a to b do
if i*i mod 7 = 0 then s:=s+i;
writeln('s = ',s);
end.
Пример:
a = 1
b = 30
s = 70
Ответ=9;
2907+193=3100
<span>7 меняем на 8, 8 на 9, 9 на 0, передвигаем, еще раз передвигаем, 9 меняем на 0, 0 на 1, передвигаем и меняем 2 на 3</span>