Const n = 50; // количество чиселvar k: array [1..n] of integer; i, j, n1, n2, minr, a, b: integer; begin writeln(n, ' ', ': d'); a : = random(1000); b : = random(1000); minr : = 10000; for i : = 1 to n do k[i] : = a + random(b); for i : = 1 to n do for j : = 1 to n do if ((abs(k[i] - k[j])) < minr) and (k[i] < > k[j]) then begin minr : = abs(k[i] - k[j]); n1 : = i; n2 : = j; end; writeln(n1, ' ', n2); end.
using System;
namespace ConsoleApp
{
class Program
{
static void Main(string[] args)
{
Console.Write("Enter N = ");
int n = int.Parse(Console.ReadLine());
double Result = 1;
int i;
for (i = 0; i < n; i++) Result *= 1.0 + 1.0 / Math.Pow((double)i, (double)i);
Console.WriteLine("For cycle result = " + Result.ToString());
i = 0;
Result = 1;
while (i < n) {
Result *= 1.0 + 1.0 / Math.Pow((double)i, (double)i);
i++;
}
Console.WriteLine("While cycle result = " + Result.ToString());
Console.ReadLine();
}
}
}