Уровень в (работа в парах): 2) Зашифруйте год, когда произошло какое-нибудь известное историческое событие
(четырёхбитный код каждой цифры отдельно с тем же ключом). Выполните задание
Год:
В двоичном коде:
Шифрование:
данные
КЛЮЧ
результат
Попросите напарника назвать событие, которое произошло в этом году.
Расшифруйте переданное вам сообщение напарником:
зашифрованные данные
Ключ
результат
Год:
Что произошло в этот год?
using System;
namespace NoNamespace.Task029 {
//Напишите консольное приложение на C#, находящее пару чисел меньше N,
//сумма цифр которых одинакова, и сообщающее, если таких чисел нет
internal class Program {
private static void Main() {
Console.WriteLine("Введите N");
var n = int.Parse(Console.ReadLine());
var sums = new int[n];
sums[0] = 1;
for (var i = 1; i < n; i++) {
sums[i] = NumberSum(i);
}
var found = false;
for (var i = 1; i < n; i++) {
if (sums[i] == 0) continue;
for (var j = i + 1; j < n; j++) {
if (sums[i] != sums[j]) continue;
Console.WriteLine($"Number sum {i} and {j} = {sums[i]}");
found = true;
}
}
if (!found)
Console.WriteLine("Nothing found");
Console.ReadKey();
}
private static int NumberSum(int number) {
var sum = 0;
while (number > 0) {
sum += number % 10;
number = number / 10;
}
return sum;
}
}
}
program first;
var a:array[1..100] of integer;
i,s,k,n,c:integer;
sr:real;
begin
read(n); {кол-во элементов массива}
for i:=1 to n do
read(a[i]); {ввод массива}
read(c); {ввод числа C}
s:=0; k:=0;
for i:=1 to n do
if (a[i]>c) then begin s:=s+a[i]; k:=k+1; end;
sr:=s/k; {считаем среднее арефмет.}
writeln(sr); {выводим ср. арефм.}
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i],' '); {делаем 2 пункт}
writeln;
s:=0; k:=0; {обнулим чтобы использовать еще раз}
for i:=1 to n do
if a[i] mod 2<>0 then begin s:=s+a[i]; k:=k+1; end;
sr:=s/k;
writeln(sr);
end.