Максимальное число, составленное из утроенного произведения цифр будет 9*3*N - не может быть больше 54, т.е. N может быть только 1 или 2. По условию х>=10 -> N=2 (N -порядок числа). Поэтому искать нужно среди чисел от 11 до 54. Решение - число 15.
var n,m: integer; begin write('n = '); readln(n); if n=2 then begin m:=11; repeat if (m mod 10)*(m div 10)*3=m then begin writeln('число: ',m); m:=55; end; m:=m+1; until m>54; end else writeln('нет решения'); end.
//PascalABC.NET версия 3.2, сборка 1417 //Если программа не запускается, то обновите версию begin var m := MatrRandom(ReadInteger('n ='), ReadInteger('m ='), 0, 9); m.Println();
{1} Writeln('количество элементов соответствующей строки'); var number := ReadInteger('Введите число, для проверки ='); var a := m.Rows.Select(r -> r.Count(x -> x > number)); a.Println;
{2} Writeln('Определить,есть ли в данном массиве столбец, в котором имеются одинаковые элементы.'); var b := m.Cols.Select(r -> r.GroupBy(v -> v).Count(g -> g.Count() > 1)); b.Println; Writeln(b.Any(x -> x > 0));
{3} Writeln('Заполнить массив'); var n := 2 * Max(m.RowCount, m.ColCount) div 2 + 1; m := MatrGen(n, n, (i, j)-> ((n - 1 - i - j) * (i - j) > 0) ? 0 : 1); m.Println(); end.
9*3*N - не может быть больше 54, т.е.
N может быть только 1 или 2. По условию х>=10 -> N=2 (N -порядок числа).
Поэтому искать нужно среди чисел от 11 до 54. Решение - число 15.
var n,m: integer;
begin
write('n = '); readln(n);
if n=2 then
begin m:=11;
repeat
if (m mod 10)*(m div 10)*3=m then
begin
writeln('число: ',m);
m:=55;
end;
m:=m+1;
until m>54;
end
else writeln('нет решения');
end.
//Если программа не запускается, то обновите версию
begin
var m := MatrRandom(ReadInteger('n ='), ReadInteger('m ='), 0, 9);
m.Println();
{1}
Writeln('количество элементов соответствующей строки');
var number := ReadInteger('Введите число, для проверки =');
var a := m.Rows.Select(r -> r.Count(x -> x > number));
a.Println;
{2}
Writeln('Определить,есть ли в данном массиве столбец, в котором имеются одинаковые элементы.');
var b := m.Cols.Select(r -> r.GroupBy(v -> v).Count(g -> g.Count() > 1));
b.Println;
Writeln(b.Any(x -> x > 0));
{3}
Writeln('Заполнить массив');
var n := 2 * Max(m.RowCount, m.ColCount) div 2 + 1;
m := MatrGen(n, n, (i, j)-> ((n - 1 - i - j) * (i - j) > 0) ? 0 : 1);
m.Println();
end.