PASCAL
Тема While . Repeat
С клавиатуры вводится последовательность из 15 чисел. Узнать сколько нулей она содержит?

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.

ваня и с.- отличники, значит ваня не с.петя и в.- троечники, значит петя не в.       в. ростом выше п., а коля ростом ниже п. - значит коля не в. и коля не п.     так как петя – троечник, то петя не с.     так как ваня – отличник, то ваня не в.     саша не п., не с., не к.тогда коля это с. коля это не к.т.к. саша это в. и саша одного роста с петей, то петя не может быть п., т.к. в выше п., петя это к.отсюда ваня это п.

саша =в  петя=к  ваня=п  коля=с

  =)

    пусть х - время в секундах.

    тогда

      (1/3 *   60/8 мбайт/с * x) с - время   за треть времени)

      (2/3 * 90/8 мбайт/с * x) с - время за две третти времени

      тогда уравнение получается

      1/3 *   60/8   * x   +   2/3 * 90/8 * x = 9000

      2,5x +   7,5x = 9000

          10x = 9000

          x = 900

        получается 900 секунд или 900/60 = 15 минут)  

3750*1024*8/2/60 бит в секунду