begin n1 := 0; n2 := 0; {предполагается, что нумерация домов начинается с 1} writeln('Вводите количество жителей в порядке возрастания номеров домов'); writeln('Окончание ввода - по отрицательному значению'); i := 1; repeat read(k); if k > 0 then begin if i mod 2 = 0 then n2 := n2 + k else n1 := n1 + k; i := i + 1 end until k < 0; write(#13#10, 'Большее количество людей проживает на '); if n1 > n2 then writeln('левой стороне улицы.') else writeln('правой стороне улицы.') end.
Тестовое решение:
Вводите количество жителей в порядке возрастания номеров домов Окончание ввода - по отрицательному значению 13 56 25 31 98 35 72 64 -1
Большее количество людей проживает на левой стороне улицы.
begin n1 := 0; n2 := 0; {предполагается, что нумерация домов начинается с 1} writeln('Вводите количество жителей в порядке возрастания номеров домов'); writeln('Окончание ввода - по отрицательному значению'); i := 1; repeat read(k); if k > 0 then begin if i mod 2 = 0 then n2 := n2 + k else n1 := n1 + k; i := i + 1 end until k < 0; write(#13#10, 'Большее количество людей проживает на '); if n1 > n2 then writeln('левой стороне улицы.') else writeln('правой стороне улицы.') end.
Тестовое решение:
Вводите количество жителей в порядке возрастания номеров домов Окончание ввода - по отрицательному значению 13 56 25 31 98 35 72 64 -1
Большее количество людей проживает на левой стороне улицы.
1) 7
2) 12
Объяснение:
1)
А=0
Б=1
В=1
Г=3
Д=1
Е=2
Ж=1
К=2+1+3+1=7
2)
А=0
Б=1
В=2
Г=2
Д=1
Е=1
Ж=1+2=3
З=1+2+2+3=8
И=1
К=3
Л=1+8+3=12