I. 1. информационными моделями являются - .. в)модель корабля г)химическая формула
2. материальной моделью является - .. а)анатомический муляж
3. какие пары объектов находятся в отношении "объект-модель" б)компьютер-его функциональные схемы
4. какая модель является статической? в)формула химического соединения
II. 1. имя переменной определяет - .. б)выделенную область оперативной памяти
2. значение переменной определяет - .. а)данные хранящиеся в выделенной области оперативной памяти б)данные хранящиеся в выделенной области оперативной памяти
3. тип переменной определяет - .. в)количество выделяемых ячеек оперативной памяти г)присваивание значения переменной
III. 1. операционная система - это .. в)программа управляющая работой компьютера
2. системные диск необходим для .. а)загрузки операционной системы
3. отличительной особенностью компьютерных вирусов от других вредоносных программ является- .. б к размножению
4. информационный объем файла не может быть больше, чем .. а)размер сектора диска
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;
for i in range(9):
for j in range(9):
for k in range(9):
if (i + j + k == 15):
print(f'{i}{j}{k}')
Объяснение: