Автомат получает на вход два двузначных десятичных числа. по по- лученным числам строится новое десятичное число по правилам. 1. вычисляются два числа - сумма цифр первого числа и сумма цифр второго числа. 2. полученные два числа записываются друг за другом в порядке не- убывания (без разделителей). определите, сколько из ниже чисел могут получиться в результате работы автомата: 211 1717 1817 1718 1719 219 21 10 1414 457 3411 1318
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
if n>10 then begin Writeln('n>10'); Exit end;
var a:=ReadArrInteger(n);
Writeln(10*'-');
var b:=a.Where(k->k.IsEven or (k mod 13=0)).ToArray;
var m:=0;
for var i:=0 to b.Count-2 do
for var j:=i+1 to b.Count-1 do
if (b[i]*b[j]) mod 26=0 then begin
Println(b[i],b[j]); m+=1
end;
if m=0 then Writeln('NO')
end.
Пример
n= 6
29 38 16 39 41 7
38 39
16 39