Program egor_sasha; var num_eg, num_sash,pri,pri1: real; var mes_eg,mes_sash: real; beginwriteln('numer egora'); readln(num_eg); writeln('numer sashi'); readln(num_sash); writeln('mesto egora (verkh=1,vniz=0)'); readln(mes_eg); writeln('mesto sashi (verkh=1,vniz=0)'); readln(mes_sash); pri: =num_sash+1; pri1: =num_eg+1; if num_eg=pri then writeln('yes') else writeln('no'); if num_sash=pri1 then writeln('yes') else writeln('no'); if mes_eg=1 then writeln('egor-high')else writeln('egor-low'); if mes_sash=1 then writeln('sasha-high')else writeln('sasha-low'); 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;
Логическое сложение (дизъюнкция) образуется соединением двух высказываний в одно с союза "или".
Пусть высказывание А=студент едет в электричке
высказывание В=студент читает книгу
А или В = студент едет в электричке или студент читает книгу