class Program
{
static void Main()
{
int sum = 0, r, size;
Console.WriteLine("Введите размерность матрицы (размерность больше 0)");
while (!Int32.TryParse(Console.ReadLine(), out size) || size <= 0)
{
Console.WriteLine("Вы ввели не число, либо недопустимое значение");
}
int[,] matrix = new int[size, size];
Console.WriteLine("Матрица");
//Заполнение и вывод матрицы
for (int i = 0; i < size; i++)
{
for (int j = 0; j < size; j++)
{
matrix[i, j] = i + j;
Console.Write(matrix[i, j] + " ");
}
Console.WriteLine();
}
Console.WriteLine($"Введите номер столбца (от 1 до {size})");
while (!Int32.TryParse(Console.ReadLine(), out r) && size < 1 && size > r)
{
Console.WriteLine("Вы ввели не число либо недопустимое значение.");
}
for (int i = 0; i < matrix.GetLength(0); i++)
{
sum = sum + matrix[i, r - 1];
}
Console.WriteLine($"Сумма {r} столбца равна {sum}");
Console.WriteLine("Press any key...");
Console.ReadKey();
}
}
var
x, y, t, c, n, k: integer;
a: array [1..10] of integer;
begin
for t := 1 to 10 do
a[t] := 0;
read(x, y);
t := x;
while (t <> 0) do
begin
c += 1;
t := t div 10;
end;
k := 1;
for t := 1 to c do
k *= 10;
while (x <> 0) do
begin
n := y;
t := x div k;
while (n <> 0) do
begin
c := n mod 10;
n := n div 10;
if (c = t) and (a[c + 1] = 0) then
begin
write(t, ' ');
a[c + 1] += 1;
break;
end;
end;
x := x mod k;
k := k div 10;
end;
end.
