Числа, которые при делении на 500 дают в остатке 9 это 509, 1009, 1509, 2009 и т.д. Максимальное число, которое можно записать девятью битами - 256+128+64+32+16+8+4+2+1=511. Поэтому число 509 наиболее подходящее для решения нашей задачи.
Ответ: 509(10) и 111111101(2)
Наука+учеба=работа
Следовательно убираем не нужное. Повторяющееся.
нука+уче=рот
у встречается 2 раза. допустим это ноль.
нка+че=рот
Под эти буквы, можно поставить любые числа. Но что бы если нка это например 185, то че должно быть больше 15. Что бы Например 94. В итоге ответ 279. Цифры совпадают по буквам, нормально.
const n=3;
var
a: array[1..n, 1..n] of word;
i, j, max, MaxI, S: longint; {i и j -переменные для цикла, max - максимальный элемент, S - сумма, MaxI - номер строки, в которой расположен максимальный элемент}
begin
S:=0;
max:=0;
for i:=1 to n do
for j:=1 to n do
begin
writeln('Введите a[',i,', ', j, ']');
readln(a[i,j]);
if a[i, j]>max then
begin
max:=a[i, j];
MaxI:=i;
end;
end;//for
for j:=1 to n do s:=s+a[MaxI, j];
writeln('Сумма элементов строки, в которой расположен максимальный элемент равна ', S);
end.
10240 символов:16-символичный алфавит=640 бит=80 байт
===== PascalABC.NET =====
begin
var p := ReadInteger('p =');
var a := ArrRandom(p, -99, 99);
a.Println;
var q := a.FindIndex(r -> r < 0);
if q > -1 then
begin
var b := a?[:q].Where(r -> r.IsEven).ToArray;
Print('Первый массив:');
b.Println;
var c := a?[q:].Where(r -> r.IsOdd).ToArray;
Print('Второй массив:');
c.Println;
end
else
Println('В массиве нет отрицательных элементов')
end.