В чем суть алгоритмов проверки условий при составлении программы?​

Судя по всему, здесь в цикле складываются квадраты всех нечетных чисел от m до n включительно.

m & 1 - это битовая конъюнкция. Результатом будет 1, если m нечетное, и 0, если m - четное (то есть, содержит или не содержит соответствующий разряд)

Выражение вида T ? X : Y, где T - логическое высказывание, принимает значение X, если T истинно, и Y, если T ложно.

Соответственно, i = (m & 1) == 1 ? m : m + 1 означает, что
если m нечетное, то i = m
если четное, i = m+1 (то есть, первое нечетное число после m)

i += 2 означает, что цикл идет с шагом, соответственно, рассматриваются только нечетные числа.

Відповідь:

Пояснення:

Program  Odun;

var a, b, c, y: real;

begin

Write('Число a');

Readln(a);

Write('Число b');

Readln(b);

Write('Число c');

Readln(c);

y:=a+b-c+2*a*b*c-7;

Writeln('Значення у =', y);

end.

Program  DWA;

var y: real;

const A=0.5; X=1.4;

begin

y:=(cos(2+x*x*x)-X)/A;

Writeln('y =', y);

end.

Program TRU;

var a, b, y: real;

begin

Write('число à');

Readln(a);

Write('число b');

Readln(b);

if a >= b  then

y:=a+b

else

y:=a-b;

Writeln('y=' ,y);

Readln;

end.

Program Choturu;

var a, b, y: real;

begin

Write('число а');

Readln(a);

Write('чмсло b');

Readln(b);

if a > b  then

y:=2*a+b-1

else

y:=3*b;

Writeln('y=' ,y);

Readln;

end.

Program  Pjat;

var x: real;

const a=74; b=25;

begin

X:=a*a+b*b;

Writeln('x =', x);

end.

Program  Shist;

var a, y: real;

begin

Write('Число a');

Readln(a);  

y:=sqr(a);

Writeln('Значення у =', y);

end.