Символом f обозначено одно из указанных ниже логических выражений от трех аргументов: x, y и z. дан фрагмент таблицы истинности выражения f. какое выражение соответствует f? 8 решите у меня 10 минут
Подробнее. Ар - единица измерения площади земли, условно равная 10 метров ширины на 10 метров длины = 10 м, х 10 м, = 100 м. кв. Гектар - площадь земли, условно равная 100 м х 100 метров = 10 000 м. кв, Ар - это ОДНА СОТАЯ Гектара. 1 Га = 100 Ар = 10 000 м. кв : 100 м. кв. = 100 Ар. 1 Ар = 0,01 Га.
1 километр = 1 000 метров. 1 км. кв. = 1 000 м х 1 000 м. = 1 000 000 м. кв. 3 км. кв = 3 000 000 м. кв. 3 000 000 м. кв. : 100 м. кв ( 1 ар ). = 30 000 ар 1 Ар = 100 : 30 000 = 0,003333 км. кв.
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018 // Внимание! Если программа не работает, обновите версию!
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.
1 Га = 100 Ар.
1 Ар = 0,01 Га.
З км. кв. = 30 000 Ар.
1 Ар = 0,003333 км. кв.
Подробнее.
Ар - единица измерения площади земли, условно равная 10 метров ширины на 10 метров длины = 10 м, х 10 м, = 100 м. кв.
Гектар - площадь земли, условно равная 100 м х 100 метров = 10 000 м. кв,
Ар - это ОДНА СОТАЯ Гектара.
1 Га = 100 Ар = 10 000 м. кв : 100 м. кв. = 100 Ар.
1 Ар = 0,01 Га.
1 километр = 1 000 метров.
1 км. кв. = 1 000 м х 1 000 м. = 1 000 000 м. кв.
3 км. кв = 3 000 000 м. кв.
3 000 000 м. кв. : 100 м. кв ( 1 ар ). = 30 000 ар
1 Ар = 100 : 30 000 = 0,003333 км. кв.
// Внимание! Если программа не работает, обновите версию!
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