Решить задачку в pascal Царица арифметики решила озеленить свою столицу и

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

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

Задать свой вопрос
1 ответ
Var a,b,n,k:integer;
begin
a:=0; read(n);
for k :=1 to n do begin
while blt;gt;0 do begin
read(b); if alt;b then a:=b;
end; end; end.
Василий
100 такое aend
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт