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.

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ую задачу