Известно число жителей, проживающих в каждом доме улицы. Нумерация домов проведена подряд. Дома с нечетными номерами расположены на одной стороне улицы, с четными — на другой. На какой стороне улицы проживает больше жителей? ( в паскале АВС)
Известно число жителей, проживающих в каждом доме улицы. Нумерация домов проведена подряд. Дома с нечетными номерами расположены на одной стороне улицы, с четными — на другой. На какой стороне улицы проживает больше жителей? ( в паскале АВС)
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program StreetResidents;
var
oddResidents, evenResidents, oddNumber, evenNumber, i, n, residents: integer;
begin
oddResidents := 0;
evenResidents := 0;
writeln('Введите количество домов на улице: ');
readln(n);
for i := 1 to n do
if i mod 2 = 0 thenbegin
writeln('Введите количество жителей в доме ', i, ': ');
readln(residents);
evenResidents := evenResidents + residents
else
oddResidents := oddResidents + residents;
end;
if oddResidents > evenResidents then
writeln('На стороне с домами нечетных номеров живет больше жителей.')
else if oddResidents < evenResidents then
writeln('На стороне с домами четных номеров живет больше жителей.')
else
writeln('На обеих сторонах живет одинаковое количество жителей.')
end.