Var
A,B:integer;
Begin
Write('Введите трёхзначное число: ');
ReadLn(A);
B:=A div 100;
A:=A mod 10;
if B>A then WriteLn('Количество сотен больше')
else if B<A then WriteLn('Количество единиц больше')
else WriteLn('Количества сотен и единиц равны')
End.
Var a,b,c:real;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
writeln('vvedite c');
readln(c);
if a>b then
if b>c then writeln('naimenshee=', c) else writeln('naimenshee=', b)
else if a>c then writeln('naimenshee=', c) else writeln('naimenshee=', a);
end.
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>
<h2>Ответ</h2>
1) Файлы на диске будут перераспределены так, что они будут идти последовательно