Определите значение целочисленных переменных x, y и t после выполнения фрагмента программы: x : = 5; y : = 7; t : = x; x : = y mod x; y : = t;

1и 5, соответственно.

T  : =  5; x  : =  2; y  : =  5 ;

//видимо, это одна , так как "изменения" во второй не указаны //pascal abc.net v3.1 сборка 1172 const   n=20; var   ar: array[1..n] of integer;   i: integer; begin   randomize;   writeln('first array: ');   for i: =1 to n do     begin     ar[i]: =random(10)-3;     write(ar[i]: 4);     if ar[i]> 0 then ar[i]: =ar[i]*2 else ar[i]: =0;     end;   writeln;   writeln('final array: ');   for i: =1 to n do     write(ar[i]: 4); end. пример работы программы: first array:     2   -3   5   6   -3   -3   1   -2   -3   1   3   -3   4   -3   1   -1   6   6   2   3 final array:     4   0   10   12   0   0   2   0   0   2   6   0   8   0   2   0   12   12   4   6

Чтобы из 10 степени перевести в другую достаточно просто делить на степень числа в которую нам нужно перевести число  а)42310/5=8462 -остатка нет значит значение 0     8462/5=1696-остаток 2 значит значение 2     1696/5=339 - остаток 1 значение 1     339/5=67 - остаток 4 значение 4     67/5=13 - остаток 2 значение 2     13/5=2 -остаток 3 значение 3     2 на 5 не делется значение 2 теперь с низу верх переписываем значения 2324120 в 5 системе б)11111110110110 в 2  в) 52056 в 8