Const
n = 5;
var
a,b : array [1..n] of integer;
i,s,k1,k2,max,min : integer;
begin
for i := 1 to n do
readln (a[i]);
for i := 1 to n do
writeln (i,')elem = ',a[i]);
end.
begin
for i := 1 to n do
a[i] := i * 3;
for i := 1 to n do
writeln (i,')elem = ',a[i]);
end.
begin
s := 0;
for i := 1 to n do
begin
readln (a[i]);
s := s + a[i];
end;
writeln (s);
end.
begin
k1 := 0;
k2 := 0;
for i := 1 to n do
begin
readln (a[i]);
if a[i] > 0 then
k1 := k1 +1;
if a[i] < 0 then
k2 := k2 +1;
end;
writeln ('+ ',k1);
writeln ('- ',k2);
end.
begin
k1 := 0;
k2 := 0;
for i := 1 to n do
begin
readln (a[i]);
if (a[i] > 0) and (i mod 2 = 1) then
k1 := k1 +1;
if (a[i] < 0) and (i mod 2 = 0) then
k2 := k2 +1;
end;
writeln ('+ ',k1);
writeln ('- ',k2);
end.
begin
for i := 1 to n do
begin
readln (a[i]);
if a[i] < 0 then
b[i] := sqr (a[i]);
if a[i] > 0 then
b[i] := a[i] * a[i] * a[i];
end;
for i := 1 to n do
write (a[i],' ');
writeln ();
for i := 1 to n do
write (b[i],' ');
end.
begin
for i := 1 to n do
readln (a[i]);
max := a[1]; min := a[1];
for i := 2 to n do
begin
if a[i] > max then
max := a[i];
if a[i] < min then
min := a[i];
end;
writeln ('max=',max);
writeln ('min=',min);
end.
begin
for i := 1 to n do
readln (a[i]);
writeln ('found :');
readln (s);
k1 := 0; k2 := 0;
for i := n downto 1 do
if a[i] = s then
begin
k1 := k1 + 1;
k2 := i;
end;
writeln ('k=',k1);
writeln ('i=',k2);
<span> end.
Бери те переменные, которые используются в конкретной программме.</span>
<span>U(i) = U(i-1) + L(i-1), а L(i) = L(i-1) + L(i-2)? </span>
№1
1) Переведем число 11111012
Для этого переведем его сначала в десятичную вот так:
11111012 = 1∙2⁶+1∙2⁵+1∙2⁴+1∙2³+1∙2²+0∙2¹+1∙2⁰ = 64+32+16+8+4+0+1 = 125₁₀
2) Переведем число AF16
Для этого переведем его сначала в десятичную вот так:
AF₁₆ = 10∙16¹+15∙16₀ = 160+15 = 175₁₀
3) Переведем число 368
Для этого переведем его сначала в десятичную вот так:
36₈ = 3∙8¹+6∙8₀ = 24+6 = 30₁₀
Получим (125+175):30=300:30=10.
№2
125₈ = 1∙8²+2∙8¹+5∙8⁰ = 64+16+5 = 85₁₀
101₂ = 1∙2²+0∙2¹+1∙2⁰ = 4+0+1 = 5₁₀
2A₁₆ = 2∙16¹+10∙16⁰ = 32+10 = 42₁₀
141₈ <span>= 1∙8</span>²+4∙8¹+1∙8⁰<span> = 64+32+1 = 97</span>₁₀
Получим 85+5*42-97=198
// F#
[<EntryPoint>]
let main argv =
let getArray =
let rand = new System.Random();
[1..4] |> Seq.map (fun x -> rand.Next 10)
let A = getArray;
let B = getArray;
let C = A |> Seq.mapi (fun i a -> a * a - (B |> Seq.nth i))
printf "%s" (Seq.fold (fun sum x -> sprintf "%s %d" sum x) "" C)
System.Console.ReadKey true |> ignore
0