Var ar:array[1..12] of integer;
ar2:array[1..12] of integer;
i,k:integer;
begin;
randomize;
writeln('Array:');
for i:=1 to 12 do
begin;
ar[i]:=random(30);
write(ar[i]:4);
if ar[i] mod 2=0 then
begin;
inc(k);
ar2[k]:=i;
end;
end;
writeln;
writeln('Final array:');
for i:=1 to k do
write(ar2[i]:4);
end.

0 0

4 года назад

Как решать 22-й номер ? есть ли какой-нибудь алгоритм?

Машп [7]

Первая строка - цифры от 2 до 26.

Вторая строка - количество способов, чтобы попасть в какое-то число используя наши команды. *2, + 3.

У нас есть 2 действия: Умножить на 2 и прибавить 3.

Первое число у нас - 2, в него мы можем попасть 1 способом, всегда так, в самое первое число по дефолту можем попасть 1 способом, идём далее.

Число 3, как нам попасть в число 3 из числа 2, используя наши команды? Никак мы этого не сделаем.

Дальше число 4, можем ли мы попасть из числа 2 или 3 попасть в число 4, используя наши команды? Можем из двойки 2 * 2 = 4, следовательно в 4-ку мы можем попасть 1 способом. Далее по аналогии.

0 0

4 года назад