<span>Самая большая поразрядная сумма 18, значит, те у которых она больше, выкидываем
1616 - подходит (</span>например, <span>888)
169 16'9 </span> - подходит (например, 881)<span>
163 16'3</span> - подходит, но чтобы получить 16 во втором разряде как минимум должно быть 7 (97), тогда, даже если в третьем 0, уже сумма будет больше 3. Выкидываем<span>
1916 </span>Выкидываем<span>
1619 </span>Выкидываем<span>
316 3'16 не подходит, последовательность возрастает
916 9'16 </span>не подходит, последовательность возрастает<span>
116 подходит (например, 560)
Итого, три числа</span>
Program chik;
var c:array[1..1000,1..1000]of longint;
n,m,i,j,p:longint;
begin
read(n,m);
for i:=1 to n do
beginf
or j:=1 to m do
begin
read(c[i,j]);
end;
end;
for j:=1 to m do
begin
p:=c[3,j];
c[3,j]:=c[5,j];
c[5,j]:=p;
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(c[i,j]:3,' ');
end;
writeln;
end;
end.<span>
</span>
// PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadAllText('A.txt').ToIntegers;
WriteAllText('B.txt',(a[0]*a[1]).ToString)
end.
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
a.Sort; a.Println;
Writeln('Кол-во разных чисел равно ',a.Distinct.Count)
end.
<u>Пример</u>
n= 13
-1 1 3 -2 8 -9 9 -1 -8 -8 9 -9 2
-9 -9 -8 -8 -2 -1 -1 1 2 3 8 9 9
Кол-во разных чисел равно 9