Трое друзей – илья, костя и серёжа – принимали участие в олимпиаде по программированию, и один из них занял первое место. когда пришли в школу, учительница спросила, кто из них победил. илья сказал: « это я победил, а не костя или серёжа ». костя сказал: « это серёжа победил, а илья всегда лжёт ». серёжа сказал: « победил не костя, а илья всегда говорит правду ». учительница знает, что один из всегда говорит правду, другой – всегда лжёт, а третий говорит через раз то ложь, то правду, но не знает, кто из них правдив, а кто – нет. кто победитель?

По моему мнению это илья илья - говорит правду серёжа-через раз костя -лжёт

Это сережа победил в олимпиаде

Program qq; uses crt; var pr, i, n: integer; a: array[1..32] of integer; begin randomize; writeln ('введите количество элементов в массиве: '); readln(n); for i: =1 to n do     begin     a[i]: =random(10)+1;     write (a[i], ' '); //распечатаем массив для наглядности     end; pr: =1; //обнулить переменную мы не можем, ибо у нас произведение. единица же, как  начальный множитель нашего произведения, его "обнулит", но  качественно ни на что далее  не повлияет for i: =1 to n do     if a[i]=2*a[i+1] then   pr: =pr*a[i]; //если выполняется условие, то умножаем уже полученное произведение на элемент массива writeln; writeln (pr); //выводим произведение на экран end.

Program qq; uses crt; var   i, n: integer; a: array[1..20] of real; sum: real; begin writeln ('введите количество элементов массива'); readln(n); writeln ('введите элементы массива'); for i: =1 to n do     read (a[i]); sum: =0; //обнуляем переменную суммы for i: =1 to n do     if i mod 2 < > 0 then   sum: =sum+a[i];   //если индекс нечетный (т.е. его остаток от деления на 2 не равен //нулю), то прибавляем элемент к уже посчитанной сумме writeln (sum: 6: 2); //выводим сумму на экран end.