А)Может 75,т.к 2*5= 10-1 = 9,потом 2*9 =18+1 = 19,потом 2*19 =38-1=37,потом 37*2= 74+1 = 75
Чередование 2 * на число -1 и +1
б)13, число фибоначчи (складываются два предыдущих числа)
ТрассировкаПроцесс пошагового выполнения программы. В режиме трассировки программист видит последовательность выполнения команд и значения переменных на данном шаге выполнения программы, что позволяет легче обнаруживать ошибки. Трассировка может быть начата и окончена в любом месте программы, выполнение программы может останавливаться на каждой команде или на точках останова, трассировка может выполняться с заходом в процедуры и без заходов, а также осуществляться в обратном порядке.
Const
n = 100;
var
i, k_max, max, neg_max: integer;
a: array[1..n] of integer;
begin
for i := 1 to n do
begin
a[i] := random(100) - 50;
write(a[i], ' ');
end;
writeln();
max := a[1];
k_max := 1;
neg_max := 0;
for i := 1 to n do
begin
if a[i] > max then begin
max := a[i];
k_max := 1;
end;
if a[i] = max then k_max := k_max + 1;
if (a[i] < 0) and (abs(a[i]) > abs(neg_max)) then
neg_max := a[i];
end;
writeln('Max: ', max, ' k=', k_max);
writeln('Positive: ', max);
writeln('Negative: ', neg_max);
end.
<span>program 123;
uses crt;
var m, n: longint;
k: integer; {счетчик цифр}
begin
clrscr;
{Вводим целое число.}
writeln('Введите N='); readln(n);
{Запоминаем его и счетчику цифр присваиваем начальное значение.}
m:=n;k:=0;
{Пока m<>0 делать цикл.}
while m <>0 do
begin
{"Уменьшаем" число на последнюю цифру, т. е. в 10 раз.}
k:=k+1; m:= m div 10; {Inc(k) }
end;
{Вывод количества цифр.}
writeln('B числе ',n,'- ',k, ' цифр!');
readln;
end.</span>
