Дана последовательность целых чисел, оканчивающаяся числом −1. необходимо определить, присутствует ли в последовательности хотя бы одна пара одинаковых «соседних» чисел. число −1 членом последовательности не является. например: 1 2 3 4 5 -1 no

Var a1, a2: integer;     f: boolean; begin  f : = false;   a1 : = -1;   writeln('введите члены последовательности, -1 для окончания ввода: ');   repeat    write('? ');     readln(a2);     if a1 < > - 1 then f : = f or (a1 = a2);     a1 : = a2  until a2 = -1;   if f    then write('yes')    else write('no');   readlnend.так?

(a*h)+(b*h)+(a*h)+(b***h3)

или

2*(a*h)+2*(b***h3)

 

если на 1 кв метр 200 грамм  то 

 

(2*(a*h)+2*(b***h3))*200=        ответ будет  в граммах

 

расход обычно указывается на кв  метр : )   

1)сила всех и глубина вростания репки, так же состояние здоровья каждого и состояние почвы

а так же не завалялась ли где нормальная лопата

2)смотря что такое по братски, но зная карлсона, он возьмет себе большой

3)главное чтоб пончику хватило. а больше он все равно сделать не в состоянии

4) радиус двери, радиус вини, прирост от сгущенки, прирост от меда, кол-во того и другого, скорость похудения и тп