Var
a: array [4..9] of longint;
q:longint;
begin
for q:=4 to 9 do
begin
a[q]:=random(10)+1;
write(a[q],' ');
end;
writeln();
for q:=4 to 9 do
begin
if a[q]<5 then a[q]:=a[q]-1;
write(a[q],' ');
end;
end.<span>
</span>
Ну, считай за 1 секунду 36 мегабайт. в 2 часах 120 минут или 7200 секунд. 7200*36=
259200 мегабайт = 259.2 гигабайта. (странный фильм какой то..)
var A,B,C,X:boolean;
begin
writeln('A':6,'B':6,'C':6,'X':6);
for A:= false to true do begin
for B:= false to true do begin
for C:= false to true do begin
X:= (A or not(B))or not(not(A) or C);
writeln(A:6,B:6,C:6,X:6);end;end;end;<span>end.</span>