Const
n = 10;
m = 10;
var i, j, column, row, sum_column, sum_row: integer;
arr: array [1..n,1..m] of integer;
begin
for i :=1 to n do
begin
for j:=1 to m do
begin
arr[i,j]:= random()*10;
end;
end;
readln(row);
readln(column);
sum_column:= 0;
sum_row := 0;
for i:=1 to n do
begin
sum_row := sum_row + arr[i,row];
end;
for j:=1 to m do
begin
sum_column := sum_column + arr[column, j];
end;
writeln(sum_column);
writeln(sum_row);
end.
Не проверено. Написал сходу в окне.
Var
N, i, k, sum, t: integer;
begin
readln(N);
k := 0;
for i := 100 to 999 do
begin
t := i;
while t > 0 do
begin
sum := t mod 10;
t := t div 10;
end;
if sum = N then k := k + 1;
end;
writeln(k);
end.
Чем мышь лучше сенсорного экрана?Серьёзно?Это очевидно!Сенсорный экран требуется в куда большим уходом. с мышкой куда проще.+Сенсорная может зависнуть и мы не поймем что мы на тыкаем .. С мышкой такое реже происходит... Я могу много примеров привести если нужно
Hex(8): 4 = Dec(10)
Hex: 1,2,3,4,5,6,7,10,11,12...
Dec: 1,2,3,4,5,6,7, 8, 9, 10...