Ваша любимая социальная сеть предлагает вам включить “умную ленту” новостей и записей. Чем она отличается от обычной?

Она специальным образом фильтрует новости и записи, чтобы сначала показывать то, что будет вам наиболее интересно

Она отображает только те новости и записи, на которых вы отмечены

Она в первую очередь выводит все последние записи, а потом уже более старые

Она не выводит записи, внутри которых содержатся изображения

51 в десятой сс=110011 в двоичной сс

85 в дес сс=1010101 в двоичной сс

110011+1010101=10001000

110011-1010101=1111111111011110

вроде так

если ответ нужен в десятичной сс, то просто переведи

var

s,s1: real;

k: integer;

begin

s: =10;

k: =1;

while s< 20 do

begin

s: =s*1.1;

k: =k+1;

end;

writeln('в ', k,' день он пробежит 20 км');

s: =10;

s1: =10;

k: =1;

while s< 200 do

begin

s: =s+s1*1.1;

s1: =s1*1.1;

k: =k+1;

end;

writeln('в ', k,' день суммарный пробег превысит 200 км');

end.

на 1 дереве - 5 

на 2дереве - 7

var a: array [1..10] of integer;

i,k: integer;

begin

  read(a);

  k: =1;

  for i : = 1 to 10 do

  begin

        if a[k]> a[i] then k: =i;

  end;

  if k mod 2 = 0 then writeln(k," - chetnoe")

  else writeln(k," - ne chetnoe");

end.