3 ГБ = 3x1024 МБ=3072 МБ
3072+800=3872 МБ
Если правильно поняла задачу, на паскале это выглядит так:
var n,b,i,a,c:integer;
begin
writeln('input n'); readln(n);
writeln('input a'); readln(a);
c:=a;
for i:=1 to n do
begin
writeln('input b',i);
readln(b);
c:=c-b;
end;
writeln('c=',c);
<span>end.
Алгоритм и блок-схема по имеющейся программе делаются элементарно. </span>
<span>a:=g m2-m1/m2+m1</span>Если в Паскале, а в visual basic без <u>:</u><span>
</span>
Var
n,i,j,k:integer;
a:array[1..3] of integer;
begin
Randomize;
n:=Random(900)+100;
Writeln(n);
a[1]:=n div 100;
a[2]:=(n div 10) mod 10;
a[3]:=n mod 10;
for i:=1 to 2 do
for j:=i+1 to 3 do
if a[i]<a[j] then begin k:=a[i]; a[i]:=a[j]; a[j]:=k end;
Writeln(a[1],' ',a[2],' ',a[3]);
end.
Пример работы
658
8 6 5
Амперметр-прибор для измерения силы тока в амперах.