Const n = 100;
const m = 50;
var a:array[1..n] of integer;
b:array[1..n] of integer;
i,it,bo:integer;
begin
for i:= 1 to n do
a[i] := trunc(Random(100));
for i:= 1 to m do
b[i] := trunc(Random(100));
bo:=1;
for i:=1 to m do
if bo = 1 then
for it:=1 to n do
if b[i] <> a[it] then begin bo:= 0; break; end;
if bo = 1 then write('Входят') else write('Не входят');
end.
если я правильно понял задание то так
Ответ:
Код ниже
Объяснение:
with open(r"D:\num.txt", "r", encoding='utf-8') as source:
sum = 0
item = 0
for s in source:
sum += int(s)
item += 1
with open(r"D:\result.txt", "w", encoding='utf-8') as dest:
dest.write(str(sum / item))
Ответ: В 1гб - 1024мб, значит в 320гб - 320гб*1024мб=327680-мб
Держи! Код прикрепил ниже.
Так как полное имя файла стало
С:\папки\математика\задачи\Задача.doc,
а до этого были созданы два вложенных подкаталога, то очевидно, что созданные каталоги -
математика и
задачи <span>
Следовательно, полное имя файла до перемещения:
</span>С:\папки\Задача.doc