Делаем наоборот
1.:2
2.+2
44:2=22(1)
22+2=24(2)
24:2=12(1)
12:2=6(1)
6:2=3(1)
3+2=5(2)
5+2=7(2)
Ответ 2211121
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var k:=ReadInteger('k=');
var i:=a.FindIndex(x->x=k);
if i=-1 then Writeln('нет')
else Writeln('да')
end.
<u>Примеры</u>
n= 15
43 -58 43 62 60 -32 60 50 73 99 -75 98 6 -42 79
k= 73
да
n= 8
-86 30 47 -75 85 32 -70 83
k= 10
нет
Ответ: 10.
Просто 5 раз проделываем операцию.
Var
Z: array [1..10] of integer;
i: byte;
MaxOddId, MaxEvenId: integer;
begin
randomize;
writeln(' * * * Исходный массив * * *');
for i := 1 to 10 do
begin
Z[i] := random(50)-20;
MaxOddId := Z[1];
MaxEvenId := Z[2];
write(Z[i], ' ');
end;
for i := 1 to 10 do
begin
if i mod 2 = 0 then if Z[i] > MaxEvenId then MaxEvenId := Z[i];
if i mod 2 <> 0 then if Z[i] > MaxOddId then MaxOddId := Z[i];
end;
writeln(#13+'Максимальный элемент на четных ячейках = ', MaxEvenId);
writeln('Максимальный элемент на нечетных ячейках = ', MaxOddId);
end.
Возьми слово переписка
подбирай слова такие чтобы в них была буква п е р е п и с к а.
все!