Алгоритм «прямого-обратного» хода — алгоритм для вычисления апосредственных вероятностей последовательности состояний при наличии последовательности наблюдений. Иначе говоря, алгоритм, вычисляющий вероятность специфической последовательности наблюдений.
//PascalABC.Net 3.2
begin //true - бьет; false - не бьет
var s1:=readstring ('Введите позицию пешки: ');
var s2:=readstring ('Введите позицию слона: ');
write (abs(ord(s1[1])-ord(s2[1]))=abs(ord(s1[2])-ord(s2[2])));
end.
Объяснение:
1060 значков ))
это если они будут среднего размера
Var
a, b: integer;
begin
a := Random(10);
b := Random(10);
write(a, ' * ', b, ' = ');
a := a * b;
readln(b);
if a = b then writeln('Правильно')
else writeln('Не верно. Правильный ответ ', a);
end.
{ пересечение окружностей }
var xa,ya,xb,yb,ra,rb: integer;
d: real;
st: string;
f: text;
begin
assign (f,'C:\In.txt');
reset (f);
read (f,xa,ya,ra);
read (f,xb,yb,rb);
close (f);
d:=Sqrt(sqr(xb-xa)+sqr(yb-ya));
if (d>rb+ra) or (d<abs(rb-ra)) then st:='NO'
else st:='YES';
{ запись в выходной файл }
assign (f,'C:\Out.txt');
rewrite (f);
writeln (f,st);
close (f);
end.
<span>
</span>