Вычислите значение переменной y после выполнения фрагмента программы int r=10, y; if (r==0) y=r%10; if (r> 0) y=r/10; if (r< 0) y=r%10+r/10; printf("%d", y);

т.к. y = 10 то выполнится if (r> 0) y=r/10

 

y=10/10 = 1

 

на экране будет 1

после вычисления этого фрагмента y будет равен 1.

// pascalabc.net 3.2, сборка 1439 от 09.05.2017 var   n: integer; function tri(n: integer): longint; begin   case n of       0,1: tri : = 0;       2: tri : = 1   else       tri : = tri(n - 3) + tri(n - 2)+tri(n-1);   end; end; var   a: array of integer;   i: longint; begin   readln(n);   setlength(a, n);   for i : = 0 to n-1 do       write(tri(i) + ' ');   for i : = 0 to n-1 do       a[i] : = tri(i);   writeln('');   for i : = 0 to n-1 do       if a[i] mod 3 = 0 then           write(a[i] + ' '); end.

// pascalabc.net 3.3, сборка 1570 от 04.11.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(11,-29,150); a.println;   writeln('ср.арифм. положительных: ',a.where(x-> x> 0).average: 0: 3);   writeln('ср.арифм. отрицательных: ',a.where(x-> x< 0).average: 0: 3);   swap(a[1],a[6]);   writeln('результирующий массив'); a.println end. пример 91 109 113 119 17 95 41 131 -15 117 -14 ср.арифм. положительных: 92.556 ср.арифм. отрицательных: -14.500 результирующий массив 91 41 113 119 17 95 109 131 -15 117 -14