Какими будут последние 5 цифр в двоичной записи произведения всех натуральных чисел от 310 до 910? Дайте ответ, не производя умножение и перевод чисел в двоичную систему счисления.
PascalABC.NET 3.2, сборка 1387 от 20.02.2017 Внимание! Если программа не работает, обновите версию!
//const // MAX_ROW=5; // MAX_COL=8; begin var a:=MatrRandom(MAX_ROW,MAX_COL,10,99); a.Println(3); (var imax, var jmax, var imin, var jmin):=(0,0,0,0); for var i:=0 to MAX_ROW-1 do for var j:=0 to MAX_COL-1 do if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j) else if a[i,j]<a[imin,jmin] then (imin,jmin):=(i,j); for var i:=0 to MAX_ROW-1 do Swap(a[i,jmax],a[i,jmin]); Writeln('-'*3*MAX_COL); a.Println(3) end.
Для проверки работы программы снимите комментарии с первых трех строк.
Внимание! Если программа не работает, обновите версию!
//const
// MAX_ROW=5;
// MAX_COL=8;
begin
var a:=MatrRandom(MAX_ROW,MAX_COL,10,99); a.Println(3);
(var imax, var jmax, var imin, var jmin):=(0,0,0,0);
for var i:=0 to MAX_ROW-1 do
for var j:=0 to MAX_COL-1 do
if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j)
else
if a[i,j]<a[imin,jmin] then (imin,jmin):=(i,j);
for var i:=0 to MAX_ROW-1 do Swap(a[i,jmax],a[i,jmin]);
Writeln('-'*3*MAX_COL); a.Println(3)
end.
Для проверки работы программы снимите комментарии с первых трех строк.
internal class Program
{
private static void Main()
{
Console.WriteLine(DoSomeThing("Как тебе живется", "цчхб"));
Console.WriteLine(DoSomeThing("Как тебе живется", "цчх"));
Console.WriteLine(DoSomeThing("Как тебе живется", "цчхи"));
Console.WriteLine(DoSomeThing("Как тебе живется", "цчахбаек"));
Console.WriteLine("Программа оконченна");
Console.ReadKey();
}
private static string DoSomeThing(string st1, string st2)
{
Console.WriteLine();
//Console.WriteLine($"{st1} - {st2}");
var i = 0;
for (var j = 0; j < st1.Length; j++)
{
//Console.WriteLine($"st1[{j}] = {st1[j]} {!st2.Contains(st1[j].ToString())}");
if (!st2.Contains(st1[j].ToString())) continue;
i = j;
break;
}
if (i == 0) return "Нет совпадений";
var s = st1.LastIndexOf(" ", i, StringComparison.Ordinal) > 0
? st1.Substring(0, st1.LastIndexOf(" ", i, StringComparison.Ordinal))
: "";
s = s +
(st1.IndexOf(" ", i, StringComparison.Ordinal) > 0
? st1.Substring(st1.IndexOf(" ", i, StringComparison.Ordinal))
: "");
return "Искомый символ - " + st1[i] + "\n" + s.Trim();
}
}