Дано натуральное n.вычислить y=1*3*(2n-1программа в паскаль абс.

Var n,k,i: integer; y: longint; begin readln(n); k: =1; y: =1; for i: =1 to n+1 do begin y: =y*k; k: =k+2; end; writeln(y); end.

данная является алгоритмом. мы должны выстроить последовательность действий так,чтобы не остаться в проигрыше.

цель: перевезти животных и капусту,так,чтобы никто из них не наведил друг другу.  перевозчик-это исполнитель(объект выполняющий действие)

1)взять козу,переплыть,высадить.

2)переплыть, взять волка,переплыть,высадить,взять козу,переплыть высадить.

3) взять капусту, переплыть, высадить.

4)переплыть,взять козу, переплыть,высадить.

5) конец алгоритма(4 пункт является результатом последовательно выполненных действий)

 

S: =1; - переменной s присваивается начальное значение 1 for i : = 10 to 99 do   - начало цикла с параметром, i - параметр цикла, 10 - начальное значение параметра, 99 - конечное значение параметра. т.е. цикл будет выполняться 90 раз, параметр i будет принимать последовательно значения 10, 11, 12, 99.if (i mod 13 = 0) and (i mod 2 < > 0) then   - условный оператор. в условии используется операция mod - определение остатка от целочисленного деления. (i mod 13 = 0) - это условие будет выполняться для чисел, которые делятся на 13 без остатка; (i mod 2 < > 0) - это условие будет выполняться для чисел, которые делятся на 2 с остатком (это нечетные числа). таким образом, условие  (i mod 13 = 0) and (i mod 2 < > 0) будет иметь значение true для нечетных чисел, которые делятся на 13 без остатка (это  13, 39, 65, 91).программа в целом вычисляет произведение нечетных  чисел, которые  делятся на 13 без остатка.  (в программе есть ошибка. тип переменной s  должен быть integer.)