Решить в pascal королева арифметики решила озеленить свою столицу и заодно сосчитать жителей. для этого она приказала

Question

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

srskimry · Answer

Var a,b,n,k:integer;begina:=0; read(n);for k :=1 to n do beginwhile b 0 do begin read(b); if a b then a:=b;end; end; end....

Популярные вопросы