Во всех случаях результат будет выглядеть как 10.
Поскольку максимальная цифра в системе с основанием N будет равна N-1.
В двоичной системе максимальная цифра 1.
В троичной 2, и т.д. - в девятеричной 8.
А для записи числа N нужно задействовать следующий разряд.
В двоичной 1+1=10
В троичной 1+2 =10
и т.д.
В девятеричной 1+8 = 10
Const
N = 10;
Var
C:array[1..N] of integer;
i,k,Max:integer;
P:real;
Begin
Randomize;
P:=1;
k:=0;
Max:=1;
WriteLn('C(',N,') в столбик:');
For i:= 1 to N do
Begin
C[i]:=random(31)-15;
WriteLn(C[i]:4);
if i mod 2 = 0 then P:=P*C[i];
if C[i] > 0 then k:=k+1;
if Abs(C[i]) > Abs(C[Max]) then Max:=i;
End;
Write('C(',N,') в строку:');
For i:= 1 to N do
Write(C[i]:4);
WriteLn;
WriteLn('P = ',P);
WriteLn('k = ',k);
WriteLn('Max = ',C[Max],'[',Max,']');
ReadLn;
End.
<span>program amoeba; </span>
<span>var i,count:integer; </span>
<span>begin </span>
<span>i:=3; //количество часов </span>
<span>count:=1; //количество амеб </span>
<span>while i < = 24 do </span>
<span>begin </span>
<span>count:=count*2; //каждые 3 часа количество амеб удваивается </span>
<span>writeln(i,' hours: ',count); //выводим кол-во часов и амеб </span>
<span>i:=i+3; </span>
<span>end; </span>
<span>readln; </span>
<span>end.</span>
1) одновременная работа со звуком, анимацией, видео, статичными объектами
Const N = 5;var a: array [1..N] of integer;k,i:integer;begink:=maxint;for i:= 1 to N do readln (a[i]);for i:=1 to N do beginif (i mod 2 = 0) and (a[i]<k) then k:= a[i] end;writeln (k);end.