"...напечатает сначала 2, потом - 6" -- это значит a=2 и b=6?
про пятеричные записи ничего не понял... :) И ИМХО к чему такие сложности? И для чего нам комп и программа? Я подправил исходную прогу чтобы она выдавала все числа подходящие по условию
var x,a,b: longint;
begin
for var i := 999 DownTo 100 do begin
a := 0;
b := 1;
x := i;
while x>0 do begin
if x mod 2 > 0 then a := a+1 else b := b+(x mod 5);
x := x div 5;
end;
if (a = 2) and (b = 6) then writeln('x = ', i, ' a = ', a, ' b = ',b);
end;
end.
прога проводит расчет для всх трехзначных чисел от 999 до 100
итого мы видим что максимальное подходящее число это 960
при необходимости прогу можно переделать чтобы она находила только максимальное число.
Если вы подходите к процессу съемки видео серьезно, то рано или поздно вы зададитесь вопросом о том, какой купить штатив для своей камеры. Штативы так же важны, как сама камера, но, к сожалению, часто при планировании бюджета штативам уделяется не так много внимания.
Штатив - это важный рабочий инструмент в видеосъемке. Качественные штативы не просто держат вашу камеру в фиксированном положении и позволяют избежать так называемой «шевелёнки». Также Они позволяют улучшить композицию кадра, держать нужный ракурс, обеспечивают плавное панорамирование и повороты камеры.
Объяснение:
тут я объяснил для чего нужен штатив камеры.
function F(x:real):real;{заданная функция}
begin
if(x>=pi)and(x<=1.5*pi)and(sin(x)+cos(3*x)<0)then F:=0
else F:=sin(x)+cos(3*x);
end;
const xn=0;{начало и конец интервала, шаг табуляции}
xk=2*pi;
h=2*pi/30;
var f1:text;{текстовый файл}
x,y,mx,my:real;
x1,y1:array[1..100] of real;{массивы значений абцисс и ординат}
n,i,gd,gm,x0,y0:integer;
st:string;
begin
clrscr;
{создаем файл и открываем для записи}
assign(f1,'tabl.txt');
rewrite(f1);
writeln(f1,'');{шапка таблицы}
writeln(f1,'| x | F(x) |');
writeln(f1,'');
x:=xn;{табулируем функцию, пишем в файл и в массивы}
n:=0;
while x<=xk+h/2 do
begin
y:=F(x);
n:=n+1;
x1[n]:=x;
y1[n]:=y;
writeln(f1,'|',x:4:1,' |',y:5:2,' |');
x:=x+h;
end;
writeln(f1,'');
close(f1);
writeln('Результаты записаны в файл TABL.txt');
write('Press Enter...');
readln;
{переходим в графический режим}
gd:=0;
initgraph(gd,gm,'');
x0:=40;{начало координат}
y0:=getmaxY div 2;
mx:=(getmaxX-60)/(xk-xn);{масштабы по осям}
my:=100;
line(20,y0,getmaxX-20,y0);{оси координат}
outtextXY(getmaxX-15,y0-15,'X');
line(x0,getmaxY-20,x0,20);
outtextXY(x0-15,10,'Y');
{засечки подписи на осях}
for i:=1 to round(xk)+1 do
begin
line(x0+round(i*mx),y0+3,x0+round(i*mx),y0-3);
line(x0-round(i*mx),y0+3,x0-round(i*mx),y0-3);
line(x0+3,y0+round(i*my),x0-3,y0+round(i*my));
line(x0+3,y0-round(i*my),x0-3,y0-round(i*my));
str(i,st);
outtextXY(x0+round(i*mx),y0+10,st);
outtextXY(x0-round(i*mx),y0+10,'-'+st);
outtextXY(x0-20,y0-round(i*my),st);
outtextXY(x0-20,y0+round(i*my),'-'+st);
end;
{график по точкам}
moveto(x0+round(x1[1]*mx),y0-round(y1[1]*my));
for i:=1 to n do
begin
setcolor(12);
lineto(x0+round(x1[i]*mx),y0-round(y1[i]*my));
setcolor(10);
circle(x0+round(x1[i]*mx),y0-round(y1[i]*my),2);{точки}
end;
readln
end.