Напишите на С++ Дана непустая последовательность целых чисел, оканчивающаяся числом –1.
Определить, есть ли в последовательности хотя бы одно число, кратное семи? В случае положительного ответа определить порядковый номер первого
из них

64 * 64 = 4096

512 * 8 = 4096 бит

4096 : 4096 = 1 бит

n = 2^i

n = 2^1 = 2 цвета

ответ. 2 цвета.

чернила были красные и черные. весь текст писался чернилами черного цвета, а начало  каждого нового раздела, т.е. новой мысли выделяли красными чернилами, так появилось выражение "красная строка", которым мы и сейчас обозначаем новую строку в начале абзаца.

1)

program m; uses crt; var i,a,b,c,min: integer; beginclrscr; readln(a,b,c);

if a< min then min: =a; if b< min then min: =b; if c< min then min: =c; writeln('              ',min); readkey; end.

2)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a); min: =a; for i: =1 to 2 do                       

                                                                beginreadln(a); if a< min then min: =a;                                                             end; writeln(min);

readkey;

end.

3)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a,b,c); if a< b then b: =a; if c< a then b: =c; writeln(b); readkey; end.

var

  s: string;

  z,z1,i: integer;

begin

  readln(s);

z: =0;

z1: =0;

  for i: =1 to length(s) do

  begin

  if s[i]='м' then inc(z);

  if s[i]='н' then inc(z1);

  end;

if z> z1 then writeln('больше букв м');

if z< z1 then writeln('больше букв н');

if z=z1 then writeln('букв м и н равное количество');

end.