456 бит)))................................
Так как Вы не уточнили какой Вы хотите что б был вывод на екран, то я буду выводить число а, б или с. (Писал на паскале ABC)
код программы на паскале:
<span>var</span> a<span>,</span>b<span>,</span>c<span>:</span><span>real</span>;
<span>begin</span><span>writeln</span><span>(</span><span>'Введите a'</span><span>)</span>;
<span>readln</span><span>(</span>a<span>)</span>; <span>writeln</span><span>(</span><span>'Введите b'</span><span>)</span>;
<span>readln</span><span>(</span>b<span>)</span>;
<span>writeln</span><span>(</span><span>'Введите c'</span><span>)</span>;
<span>readln</span><span>(</span>c<span>)</span>;
<span>if</span><span>(</span>a>b<span>)</span><span>and</span><span>(</span>a>c<span>)</span><span>then</span><span>writeln</span><span>(</span><span>'a - наибольшее число'</span><span>)</span><span>else</span><span>if</span><span>(</span>b>a<span>)</span><span>and</span><span>(</span>a>c<span>)</span><span>then</span><span>writeln</span><span>(</span><span>'b - наибольшее число'</span><span>)</span><span>else</span><span>writeln</span><span>(</span><span>'c - наибольшее число'</span><span>)</span>;
<span>readln</span>;
<span>end</span>.
Рад был помочь) Пишите)
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>U(i) = U(i-1) + L(i-1), а L(i) = L(i-1) + L(i-2)? </span>
1 час 2 поциента . всего 9 поциентов в 11 30 а в 12, 10