Реши и выбери ответ. (fat16) в блокнот (notepad) введён текст: модем. 1. информационный объём текста равен: байтов 2. занимаемый объём на флэш - диске: 25
Объясню так, чтобы разобрался. Итак, каждый символ в документе .txt - 1 бит. => модем = 5 бит. Это первое, т.е. информационный объем равен 5/8 байт. С диском то же самое. Объем файла - 5 бит.
yfetyukov2
27.12.2022
//Pascal ABC.NET Версия 2.2 Сборка 790 var s,d:string; n,i,j:integer; begin; readln(n); readln(d); i:=1; for j:=1 to n-1 do i*=10; j:=i; while i*10<>j do begin; inc(j); s:=inttostr(j); if pos(d,s)=0 then write(s:5); end; end.
Procedure TForm1.Button1Click(Sender: TObject); var i1,i2,i3 : Integer; m : array [1..10] of Integer; kk : Integer; begin Memo1.Clear; for i1 := 1 to 10 do begin m[i1]:= Random(10)-5; Memo1.Lines.Append('m['+inttostr(i1)+'] = '+inttostr(m[i1])); end; Memo1.Lines.Append(''); kk := 0; for i1 := 1 to 10-2 do begin for i2 := i1+1 to 10-1 do begin for i3 := i2+1 to 10 do begin if ( (m[i1]+m[i2]+m[i3])=0) then begin inc(kk); Memo1.Lines.Append('Индекс = '+inttostr(i1)+' '+inttostr(i2)+' '+inttostr(i3)+' Значение = '+inttostr(m[i1])+' '+inttostr(m[i2])+' '+inttostr(m[i3])); end; end; end; end; Memo1.Lines.Append(''); if kk>0 then Memo1.Lines.Append('Да в этом массиве есть три числа сумма которых равна нулю') else Memo1.Lines.Append('Нет в этом массиве три числа сумма которых равна нулю'); Memo1.Lines.Append('Количество комбинаций = '+inttostr(kk)); end;
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Реши и выбери ответ. (fat16) в блокнот (notepad) введён текст: модем. 1. информационный объём текста равен: байтов 2. занимаемый объём на флэш - диске: 25
Итак, каждый символ в документе .txt - 1 бит.
=> модем = 5 бит.
Это первое, т.е. информационный объем равен 5/8 байт.
С диском то же самое.
Объем файла - 5 бит.