16. Укажите логическое выражение, принимающее значение TRUE, когда точка с
координатами (x, y) принадлежит закрашенной области.
1) ((y>0) аnd (ук1) аnd (x>0) аnd (х.1) аnd (х<0) аnd (x+y < D)
2) ((y>0) аnd (y<1) аnd (x>0) аnd (х<1)) or ((x>-1) аnd (х<0) аnd (x+yt< 1 ))
3) ((y>0) аnd (y<1) or (x>0) аnd (х<1)) аnd ((x>-1) аnd (х<0) or (x+y"> 1))
22
33
На фото номер 16
fsz,indf,indl: int64;
f: file of integer;
begin
write('n = '); readln(n);
// запись в файл целых чисел
assign(f,'input.txt');
rewrite(f);
for i:=1 to n do write(f,random(-3000,8000));
close(f);
// замена элементов в файле
assign(f,'input.txt');
reset(f);
fsz:=FileSize(f);
indf:=0;
for i:=0 to fsz-1 do
begin
read(f,n);
if ((n mod 2)<>0) and (indf=0) then
begin
indf:=i; fs:=n;
end;
if (n mod 2)=0 then
begin
indl:=i; ls:=n;
end;
end;
reset(f);
seek(f,indf);
write(f,ls);
reset(f);
seek(f,indl);
write(f,fs);
close(f);
end.
// Внимание! Если программа не работает, обновите версию!
begin
var fn:='MtFile.bin';
var n:=ReadInteger;
var f:file of integer;
var s:=SeqRandom(n,-3000,8000); // последовательность не хранится
Rewrite(f,fn);
foreach var m in s do Write(f,m);
f.Close; // файл создан и закрыт
Reset(f,fn);
var b:integer; // буфер
while not Eof(f) do begin Read(f,b); Print(b) end; Writeln;
Seek(f,0); // стали в начало файла
Read(f,b);
var iOdd:=0;
while not Eof(f) and b.IsEven do
begin Read(f,b); iOdd+=1 end;
if Eof(f) and b.IsEven then
begin Writeln('Нет нечетных компонентов'); exit end;
var (bb,iEven):=(b,n);
repeat
iEven-=1; Seek(f,iEven); Read(f,b)
until (iEven=1) or b.IsEven;
if b.IsOdd then begin Writeln('Нет четных компонентов'); exit end;
Seek(f,iEven); Write(f,bb);
Seek(f,iOdd); Write(f,b);
Seek(f,0);
while not Eof(f) do begin Read(f,b); Print(b) end; Writeln;
f.Close
end.
Пример
10
3166 6355 3596 6926 1266 6143 7401 7624 1402 -627
3166 1402 3596 6926 1266 6143 7401 7624 6355 -627