<u>// PascalABC.NET </u>
<u>// Версия 3.3.5 сборка 1662 (29.04.2018)</u>
begin
for var i := ReadInteger('n->') to ReadInteger('k->') do
if i.ToString.OrderBy(t -> t).AdjacentGroup.Where(t -> t.Count = 3).Count > 0
then i.Println;
end.
<u>Пример:</u>
k-> 1170
n-> 1111
1112
1113
1114
1115
1116
1117
1118
1119
1121
1131
1141
1151
1161
Просто если следовать алгоритму то 10 чисел
n=1
k=1 ⇒ A[1,1]=1
k=2 ⇒ <span>A[1,2]=1
</span>k=3 ⇒ <span>A[1,3]=1
</span>k=4 ⇒ <span>A[1,4]=1
n=2
</span>k=2 ⇒ <span>A[2,2]=1
</span>k=3 ⇒ <span>A[2,3]=1
</span>k=4 ⇒ <span>A[2,4]=1
n=3
</span>k=3 ⇒ <span>A[3,3]=1
</span>k=4 ⇒ <span>A[3,4]=1
n=4
</span>k=4 ⇒ <span>A[4,4]=1</span>
Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ConsoleApplication1
{
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Введи A");
double A = double.Parse(Console.ReadLine());
Console.WriteLine("Введи B");
double B = double.Parse(Console.ReadLine());
Console.WriteLine("1 - сложение, 2 - вычитание");
int n = int.Parse(Console.ReadLine());
switch (n)
{
case 1:
{
double Y = A + B;
Console.WriteLine(Y);
break;
}
case 2:
{
double Z = A - B;
Console.WriteLine(Z);
break;
}
default:
{
Console.WriteLine("Выбрана несуществующая операция");
break;
}
}
Console.ReadKey();
}
}
}