Const n = 10;
Var m : array[1..n] of Integer;
i : Integer;
Begin
Randomize;
For i:=1 to n do
Begin
m[i]:=Random(50);
Write(m[i]:3);
end;
Writeln;
For i:=1 to n do
Begin
If not Odd(m[i]) then m[i]:=m[i]*2;
Write(m[i]:3);
end;
Writeln;
end.
ax=b
x=b/a
Алгоритм решения такого уравнения: Делим А на число В.
Программа в паскале:
var
a,b,x:real;
begin
readln(a);
readln(b);
if b=0 then begin
write('net resheniy');
exit;
end;
x:=a/b;
writeln(x);
end.
Begin
write('A':4, 'B':6, 'F1':6);writeln;
for A:= false to true do begin
for B:= false to true do begin
F1:= (not(A) or B) and (not(A) or not(A));
write(A:6, B:6, F1:6);writeln;end; end;writeln;write('X':4, 'Y':6, 'Z':6, 'F2':6);
writeln;
for X:= false to true do begin
for Y:= false to true do begin
for Z:= false to true do begin
F2:= (not(X) and Y) or not(Z);write(X:6, Y:6, Z:6, F2:6);writeln;end; end;end;<span>end.</span>
75 дели на 2 столбиком. пока делитель не станет больше делимого
5120 * 24 = 122880 бит
122880 / 15 = 8192 бит / с