7 + 8 = 15 = x + 6
x = 15 - 6 = 9
Т.е. это верно в системе счисления с основанием 9
var
n,i,j,max,k: Integer;
lname, name: array [1..100000] of String;
y,g,a:array [1..100000] of longint;
begin
Read(n);
for i:=1 to n do
begin
read(lname[i]);
read (name[i]);
read(y[i],g[i]);
if (max<g[i]) or (i=1) then
max:=g[i];
end;
for i:=1 to n do
if g[i]=max then
begin
writeln(lname[i], ' ', name[i]);
j:=j+1;
a[j]:=i;
end;
for i:=1 to j do
write(g[a[i]], ' ');
end.
Свойство информации отражающее истинное положение дел это достоверность
Делаешь цикл от 16 до 10000.
Проверяешь каждое число кратно ли оно 2 (mod, %),
если да, кратно ли 16,31