Числа 143 и 621 имеют одинаковое произведение цифр, равное 12. сколько ещё трёхзначных чисел таким же свойством?

181

453

Посмотреть ответы 1

Ответы на вопрос:

Ekaterina785

Информатика

4,8(89 оценок)

Var a: array[1..100, 1..100] of integer; i, j, m, n, count2, countx, x: integer; begin {ввод матрицы} n : = 10; writeln('данные матрицы: '); for i : = 1 to n do begin for j : = 1 to n do begin a[i, j] : = random(200) - 100; write(a[i, j]: 4, ' ') end; writeln; end; write('x = '); readln(x); count2 : = 0; countx : = 0; for i : = 1 to n do for j : = 1 to n do begin if a[i, j] = x then countx : = countx + 1; if (a[i, j] > = 10) and (a[i, j] < = 99) and ((a[i, j] div 10 + a[i, j] mod 10) mod 2 = 0) then count2 : = count2 + 1; end; writeln('countx = ', countx); writeln('count2 = ', count2); end.