Помогите пожалуйста,много пропустила уроков,разобрать не могу никак((Вариант V1....

Question

Помогите пожалуйста,много пропустила уроков,разобрать не могу никак((
Вариант V
1. Составить логическое выражение, значение которого равно True, если высказывание истинно, и False, — если ложно.Каждая следующая цифра данного трехзначного натурального числа на единицу больше предыдущей.2. Точно и четко сформулировать условие задачи, которая решается в данной программе:
Program Kr_2_3;
Var N : LongInt; M : 0..9;
Begin
Write('введите натуральное число: '); ReadLn(N);
M := 0;
While N <> 0 Do
Begin
If N Mod 10 > M Then M := N mod 10;
N := N div 10
End;
WriteLn('Ответ: ', M)
End.
Задать натуральное число N. Определить, чему будет равно значение M для заданного N.3. Вычислить произведениеP = 3 * 6 * ... * (3n).4. В данном линейном целочисленном массиве каждый элемент с четным индексом увеличить на значение индекса, с нечетным — уменьшить на значение индекса.5. Данную строку зашифровать по следующему принципу: заменить каждый символ на следующий по порядку символ таблицы ASCII.

Comments

13 б)

---

прикольно

---

у меня 165

---

я первый день тут)

---

я 2

---

хах)))

---

да уж задро )

---

т*

---

пока я ухожу спать охото )

---

Доброй ночи)

Answer 1

Program Kr_2_4;
Var k, N, P, S: Integer;
Begin
Write('введите N: '); ReadLn(N);
P := 1;
S := 3;
For k := 1 TO N Do
Begin
 P := P*S;
 S := S*2;
End;
WriteLn('Ответ: ', P)
End.

Держи 3ью задачу

Program Kr_2_5;
Var k : Integer; a: array [1..100] of integer;
Begin

For k := 1 TO 100 Do
Begin
 if (k mod 2 = 0) then a[k] := a[k] + k else a[k] := a[k] - k;
End;
End.

Держи 4ую задачу

Answer 2

НЕТ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Comments

N = 358, то M = 8

---

ну да, правильно, а у меня че написано

---

ну ты у меня списал )))