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.
Значение переменных k и s изменяются до тех пор, пока s < 66
Будет выведено значение переменной k. k = 19
Трассировка:
s k
0 1
4 4
11 7
21 10
34 13
50 16
69 19 ← s > 66. Выводим k.
0110100112 = 0∙28+1∙27+1∙26+0∙25+1∙24+0∙23+0∙22+1∙21+1∙20 = 0+128+64+0+16+0+0+2+1 = 21110
Купи полу игровой и для учёбы места на 3 ГБ