Помогите пожалуйста,много пропустила уроков,разобрать не могу никак((Вариант V1. Составить логическое выражение, значение которо
Помогите пожалуйста,много пропустила уроков,разобрать не могу никак(( Вариант V <span>1. Составить логическое выражение, значение которого равно True, если высказывание истинно, и False, — если ложно.</span>Каждая следующая цифра данного трехзначного натурального числа на единицу больше предыдущей.<span>2. Точно и четко сформулировать условие задачи, которая решается в данной программе: </span>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. <span>Задать натуральное число N. Определить, чему будет равно значение M для заданного N.</span><span>3. Вычислить произведение</span><span>P = 3 * 6 * ... * (3n).</span><span>4. В данном линейном целочисленном массиве каждый элемент с четным индексом увеличить на значение индекса, с нечетным — уменьшить на значение индекса.</span><span>5. Данную строку зашифровать по следующему принципу: заменить каждый символ на следующий по порядку символ таблицы ASCII.</span>
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.