Из 8 фунтового горшка перелить до краёв в 5 фунтовый горшок, за тем из 3 фунтового в 8 фунтовый)))
Var S,E:real;
N:integer;
Begin
Write('E = ');ReadLn(E);
N:=2;
S:=0;
While (N-1)/(N*N)>E do
Begin
S:=S+(N-1)/(N*N);
N:=N+1
End;
WriteLn(S)
End.
Чтобы задать восемь цветов, необходимо 3 бита (2³=8). То есть на каждую точку экрана требуется 3 бита видеопамяти.
Всего точек будет 640*350 = 224000
Умножим на 3 бита и получим 672000 бит или 84000 байт.
Умножим на количество страниц: 84000 * 3 = 252000 байт
Const
start=12; //наименьшее подходящее число
max=100; //первое число, идущее после всех двузначных
step=3; //разность между подходящими числами
var
x,i:integer;
begin
x:=start;
i:=0;
while x<max do begin
i:=i+1;
x:=x+step;
end;
writeln('Количество искомых чисел: ',i);
end.