Решить задачу в pascal

Королева арифметики решила озеленить свою столицу и заодно сосчитать жителей. Для этого она приказала всем посадить вокруг каждого дома столько деревьев, сколько в этом доме живёт членов семей, а также их слуг. Определить номер самого населённого дома (количество деревьев, растущих возле каждого дома записано в виде последовательности, заканчивающейся числом ноль).

Question

Берта

7 августа, 16:37

+2

Ответы (1)

Знаете ответ на вопрос?

Акила · Answer 1

Var a, b, n, k:integer;

begin

a:=0; read (n) ;

for k : = 1 to n do begin

while b0 do begin

read (b) ; if a
end; end; end.