Василий придумал такое сообщение: " в последовательности 1, 4, 0, 5, 1, 9, 9, 4 (образованной от даты его рождения) нужно увеличить все числа, которые меньше 5 на 3, потом все четные поделить на 2 и удалить последние 2 цифры ". какой пароль у василия?

1 4 0 5 1 9 9 4

увеличим все числа, меньшие пяти, на три:

4 7 3 5 4 9 9 7

все чётные поделим на 2 и удалим две последние цифры

2 7 3 5 2 9

вот и ответ.

Var   a, b: integer; begin   readln(a, b);   if a * b < 0 then {если числа разных знаков}       writeln(2 * a, ' ', 2 * b)   else if a > 0 then begin{иначе одного знака и больше нуля}       if a > b then           writeln((a + b) / 2, ' ', b)       else           writeln(a, ' ', (a + b) / 2)   end   else begin       if a > b then           writeln(a, ' ', -b)       else           writeln(-a, ' ', b)   end; end.

Const   n = 20; var   a: array[1..n] of integer;   m, i: integer; begin   for i : = 1 to n do   begin       a[i] : = random(21) - 10;       write(a[i]: 4);   end;   writeln;   for i : = 1 to n - 1 do       if (a[i] mod 2 < > 0) or (a[i + 1] mod 2 < > 0) then m : = m + 1;   writeln('всего пар', m); end. тестовое решение:     2  -8    8  -5    7  -8  -3  -6  -9    2  -1  -3  -8    6  10    7  -4  -8    0  -5 всего пар 13