Выписали все числа от 1 до 2019 подряд, посчитали сумму цифр получившегося длинного числа, у полученного числа снова посчитали сумму цифр и так далее, пока не осталось однозначное число. какое?
Всего имеем 2019 чисел. Сумма крайних чисел всегда равна одному числу, в нашем случае, 2020 (1+2019, 2+2018, 3+2017 и т.д.). В середине число 1010 - оно без пары. Всего имеем 1009 пар, дающих в сумме 2020 и 1 число 1010. Т.е. в сумме получаем 2020*1009+1010, что равно 1010*2*1009+1010=1010(2*1009+1)=1010*2019; это число 2039190. Сумма его цифр - 24, а сумма чисел 2 и 4 - 6. Отсюда ответ: 6.
Я решил чисто математически, возможно, можно было по-другому)
Var i, j, k : integer; a : array [0..9,0..9] of char; procedure U(i,j:integer); var c : char; begin c:=a[i,j]; a[i,j]:=' '; if (c='W')and(a[i+1,j]='B') then U(i+1,j); if (c='B')and(a[i+1,j]='W') then U(i+1,j); if (c='W')and(a[i-1,j]='B') then U(i-1,j); if (c='B')and(a[i-1,j]='W') then U(i-1,j); if (c='W')and(a[i,j+1]='B') then U(i,j+1); if (c='B')and(a[i,j+1]='W') then U(i,j+1); if (c='W')and(a[i,j-1]='B') then U(i,j-1); if (c='B')and(a[i,j-1]='W') then U(i,j-1); end; begin assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); for i:=1 to 8 do begin for j:=1 to 8 do read(a[i,j]); readln end; for i:=1 to 8 do begin a[0,i]:=' '; a[9,i]:=' '; a[i,0]:=' '; a[i,9]:=' ' end; k:=0; for i:=1 to 8 do for j:=1 to 8 do if a[i,j]<>' ' then begin k:=k+1; U(i,j) end; write(k); close(output) end.
Var i, j, k : integer; a : array [0..9,0..9] of char; procedure U(i,j:integer); var c : char; begin c:=a[i,j]; a[i,j]:=' '; if (c='W')and(a[i+1,j]='B') then U(i+1,j); if (c='B')and(a[i+1,j]='W') then U(i+1,j); if (c='W')and(a[i-1,j]='B') then U(i-1,j); if (c='B')and(a[i-1,j]='W') then U(i-1,j); if (c='W')and(a[i,j+1]='B') then U(i,j+1); if (c='B')and(a[i,j+1]='W') then U(i,j+1); if (c='W')and(a[i,j-1]='B') then U(i,j-1); if (c='B')and(a[i,j-1]='W') then U(i,j-1); end; begin assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); for i:=1 to 8 do begin for j:=1 to 8 do read(a[i,j]); readln end; for i:=1 to 8 do begin a[0,i]:=' '; a[9,i]:=' '; a[i,0]:=' '; a[i,9]:=' ' end; k:=0; for i:=1 to 8 do for j:=1 to 8 do if a[i,j]<>' ' then begin k:=k+1; U(i,j) end; write(k); close(output) end.
Всего имеем 2019 чисел. Сумма крайних чисел всегда равна одному числу, в нашем случае, 2020 (1+2019, 2+2018, 3+2017 и т.д.). В середине число 1010 - оно без пары. Всего имеем 1009 пар, дающих в сумме 2020 и 1 число 1010. Т.е. в сумме получаем 2020*1009+1010, что равно 1010*2*1009+1010=1010(2*1009+1)=1010*2019; это число 2039190. Сумма его цифр - 24, а сумма чисел 2 и 4 - 6. Отсюда ответ: 6.
Я решил чисто математически, возможно, можно было по-другому)