Написать программу выводо на экран элементов кратных числу 3 pascal

Program lol; var a: integer; begin for a: =100 downto 1 do begin if a mod 3 = 0 then writeln(a); end; end.p.s.  в строке  for a: =100 downto 1 do вместо 100 вставь нужное тебе значение советую меньше 1000 а то долго считает

100010,011101=42,35   (вос. сис.)

10010,011101=22,1d   (шест. с.)

 

  111 111 111 000 001=77701(в.с)

  0111 1111 1100 0001(добавляем 0)=7fc1 (ш.с.)

 

0,000110101=0,065(в.с) (доб. 00)

0,0110101=0,35(ш.с.) 

 

0,11 100 110 101=0,3465(в.с.)

0,111 0011 0101=0,735(ш.с.) 

 

 

 

 

мощность n=16

n=2^i где i-количество информации в символе

тогда i=4

информационный объем i равен i*k где k - количество символов в тексте

значит i =4*540=2160