Объяснение: всё дело в том, что в первом случае (в верхнем, где s = 0 написано вне цикла) s изначально равен нулю, а затем с каждой итерацией цикла s увеличивается.
А втором случае на каждой итерации цикла сначала присваивается s = 0, а затем уже изменяется. Поэтому перед каждой следующей итерацией цикла всё что происходило с s раньше обнуляется.
Если подвести итог, то разница заключается в том, что присваивание находится в цикле или вне него, а значит выполняется один раз (если вне цикла) или много раз (если внутри)
А)
program num;
var
number: integer;
begin
read(number);
if (number mod 2 = 0) then
write('ДА')
else
write('НЕТ');
end.
Б)
program b;
var
first, second: integer;
begin
read(first, second);
if (first > second) then
write(first + second)
else
write(first * second);
end.
Объяснение:
А)
program num; // Название программы
var
number: integer; // Целочисленная переменная, хранящая вводимое с клавиатуры число
begin // Начало программы
read(number); // Считываем число с клавиатуры
if (number mod 2 = 0) then // Если остаток от деления значения переменной number на 2 = 0, тогда
write('ДА') // Выводим "Да"
else // Иначе
write('НЕТ'); // Выводим "Нет"
end. // Конец программы
Б)
program b; // Название программы
var
first, second: integer; // Целочисленные переменные, хранящие вводимые с клавиатуры числа
begin // Начало программы
read(first, second); // Считываем числа с клавиатуры
if (first > second) then // Если первое число > второго числа, тогда
write(first + second) // Выводим сумму этих чисел
else // Иначе
write(first * second); // Выводим произведение этих чисел
end. // Конец программы
MAD = Сумма (по i от 1 до n) |x(i) - ~x| / n
Программа
Sredx = 0
For i = 1 To n
Sredx = Sredx + x(i)
Next i
Sredx = Sredx / n ' посчитали среднее арифметическое ~x
MAD = 0
For i = 1 To n
MAD = MAD + Abs(x(i) - Sredx)
Next i
MAD = MAD / n ' посчитали среднее абсолютное отклонение
Среднее квадратическое отклонение
MQD = Sqrt(Сумма (по i от 1 до n) (x(i) - ~x)^2 / n)
Программа
MQD = 0
For i = 1 To n
MQD = MQD + (x(i) - Sredx)^2
Next i
MQD = (MQD / n)^(1/2) ' посчитали среднее квадратическое отклонение
Otnos = MQD / MAD ' посчитали отношение квадратического к абсолютному
Среднее арифметическое из средних абсолютных отклонений поддиапазонов
Посчитай MAD в каждом поддиапазоне отдельно, а потом среднее арифметическое, как в цикле Sredx.