<span>непрерывно изменяющийся во времени</span>
Uses crt;
var i,sum:integer;
begin
sum:=0;
for i:=10 to 99 do
if i mod 3=0 then sum:=sum+i;
writeln(sum);
<span>end.</span>
<em><u>Код на Паскале:</u></em>
Program proba;
Uses crt;
Var n,s:integer;
Begin
writeln('введите натуральное число');
Readln(n);
s:=0;
repeat s:=s+n mod 10;
n:=n div 10;until n=0;
writeln('сумма цифр ',s);
<span>end.
<em><u>P.S. Программа вычисляет не только трехзначные числа ;)</u></em></span>
1) 26 символов = по другому 2 в 5 степени (с остатком);
2) 240 * 5 = 1200 бит
<span>Е:\видеозапись.aviЕ:\график.xIsЕ:\ИЗОБРАЖЕНИЯ\аквариум.bmpЕ:\ИЗОБРАЖЕНИЯ\ФОТО\Бия.jpegЕ:\ИЗОБРАЖЕНИЯ\ФОТО\Катунь.jpegЕ:\ТЕКСТЫ\буква.txtЕ:\ТЕКСТЫ\онегин.docЕ:\мелодия.mp3<span>Е:\презинтация.ppt</span></span>