1)
var a,a1,a2:integer;beginreadln(a);a1:=strtoint(copy(inttostr(a),1,1));a2:=strtoint(copy(inttostr(a),2,1));if a1>a2 then write(a1,'>',a2) elsewrite(a1,'<',a2);end.
2)
var a,a1,a2,a3,a4,s:integer;beginreadln(a);a1:=strtoint(copy(inttostr(a),1,1));a2:=strtoint(copy(inttostr(a),2,1));a3:=strtoint(copy(inttostr(a),2,1));a4:=strtoint(copy(inttostr(a),2,1));s:=a1+a2+a3+a4;if s mod 3 = 0 then write('Сумма цифр ',a,'=',s,' - кратно 3')else write('Сумма цифр ',a,'=',s,' - не кратно 3');end.
#include <iostream>
int main()<span>{
</span><span> int arr[3][7]; /*for (int* i = *arr; (i - *arr) < 21; i++) *i = i-*arr;*/
</span><span> const int VALUE = 11;
</span><span> //
</span><span> int max;</span><span> int count = 0;
</span><span> for (int x = 0; x < 7; x++) {
</span><span> max = arr[0][x];
</span><span> for (int y = 0; y < 3; y++) {
</span><span> if (max < arr[y][x])</span><span> max = arr[y][x];
</span><span> }
</span><span> if (max < VALUE) {
</span><span> std::cout << "Наибольший элемент столбца " << x + 1 << " меньше заданной величины." << std::endl;
</span><span> count++;
</span><span> }
</span><span> }
</span><span> std::cout << count << " столбцов не соответсвуют условию." << std::endl;
</span><span> return 0;
</span>}
81920,5120,175921860444160,128849018880
Верно, каждый знак=1 разряду двоичного (например) кода