Написать программу нахождения чисел кратных 3 в диапазоне от 1 до

var

 n,s:integer;

begin

 n:=3; s:=0;

 while n<=100 do begin

   s:=s+n;

   n:=n+3

   end;

 Writeln('S=',s)

end.

Результат

S=1683

Объяснение:

вроде так

вместо х ставишь 2,значит у=2-1,у=1,х=у-2,2=4-2,у=х-у,у=2-у,тут у-любое,кроме 2 и более

мощность n=16

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

тогда i=4

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

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