Cистема команд исполнителя вычислитель состоит из двух команд, которым присвоены номера: 1) вычти 1 2) умножь на 3 первая из них уменьшает число на 1, вторая увеличивает число в 3 раза. при записи алгоритмов для краткости указываются лишь номера команд. запишите алгоритм для исполнителя вычислитель, содержащий не более 5 команд: а) получения из числа 3 числа 16 б) получения из числа 1 числа 25

А) Вычти 1
    Умножь на 3
    Умножь на 3
    Вычти 1
    Вычти 1

Б) Умножь на 3
     Умножь на 3
     Умножь на 3
     Вычти 1
     Вычти 1

1
var i, minus, plus, zero: integer;
t: array [1..15] of integer;
begin
minus := 0;
plus := 0;
zero := 0;
for i := 1 to 15 do
begin
readln(t[i]);
if t[i] > 0 then plus := plus + 1;
else if t[i] < 0 then minus := minus + 1;
else zero := zero + 1;
end;
end.

2
var stroke: string;
begin
readln(stroke);
if length(stroke) mod 2 = 0 then writeln('Четно');
else writeln('Нечетно');
end.

3 (Сейчас далеко от компа, когда буду рядом отредачу)

4
var max, min, i: integer;
A: array[1..20] of integer;
begin
min := a[1];
max := a[1];
for i := 2 to 15 do
begin
if a[i] > max then max := a[i];
if a[i] < min then min := a[i];
end;
end.

Можно покрасить
1)все серебряные
2)все зелёные
3)1 и 2 серебряные, а 3 и 4 зелёные
4)1 и 2 зелёные, а 3 и 4 серебряные
5)1 и 3 серебряные, а 2 и 4 зелёные
6)1 и 3 зелёные, а 2 и 4 серебряные
7)1 и 4 серебряные, а 2 и 3 зелёные
8)1 и 4 зелёные, а 2 и 3 серебряные
9)1 серебряный, а 2,3 и 4 зелёные
10)1 зелёный, а 2,3 и 4 серебряные
11)2 серебряный, а 1,3 и 4 зелёные
12)2 зелёный, а 1,3 и 4 серебряные
13)3 серебряный, а 1,2 и 4 зелёные
14)3 зелёный, а 1,2 и 4 серебряные
15)4 серебряный, а 1,2 и 3 зелёные
16)4 зелёный, а 1,2 и 3 серебряные