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
Большее количество людей проживает на левой стороне улицы.
var A,B,C:integer;
begin
A:=random(90)+10;
writeln(A);
B:=A div 10;
C:=A mod 10;
writeln('Первая цифра числа: ',B);
writeln('Вторая цифра числа: ',C);
writeln('Сумма цифр = ',B+C);
if C=0 then
writeln('На ноль делить нельзя')
else
writeln('Частное цифр = ',B/C);
end.