<em>var a, b, i, c :integer;</em>
<em>begin</em>
<em> read (a, b); </em><em>// вводим a и b </em>
<em> for i:=1 to 5 do</em>
<em> begin</em>
<em> c:=random(b-a)+a; </em><em>// присваиваем рандомные числа в заданном </em><em>промежутке</em>
<em> writeln (c); </em><em>// выводим число</em>
<em> end;</em>
<span><em>end.</em></span>
<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(20, k -> (2 * k + 1) / (4 * k * k * k - 3), 1).Sum.Println
end.
<h2>3.36697051758274 </h2>
Переменная Х <span>будет принимать значение 17.</span>
1. F= (x1 или не х2 и х1) или (х2 или х1 )
х1=0; х2=0 F= 0 + ¬0*0 + 0+0 = 0
x1=1 x2=1 F= 1 + ¬1*1 + 1 +1 = 1
x1=0 x2=1 F= 0+ ¬1*0 + 1+0 = 1
x1=1 x2=0 F= 1+ ¬0*1 + 0+1 = 1
--------------------------------------------------------------------------------------
2.
F= (x1 или х2) и не(х2 и х1 или х1)
х1=0 х2=0 F= (0 + 0 ) *¬ (0 *0 +0) = 0
х1=1 х2=1 F=( 1 + 1 ) * ¬( 1*1 +0 ) = 0
x1=0 x2=1 F= (0 + 1) * ¬(1*0 +0 ) = 1
x1=1 x2=0 F= (1 + 0 ) * ¬ (0*1 + 1 ) = 0
Вопросы составишь вот по этой теме на соблюдать дисциплину и порядок, правила техники безопасности и чистоту;занимать рабочие места согласно указаниям преподавателя и не менять их самовольно;заниматься только тем видом деятельности, которую определил преподаватель;немедленно сообщать преподавателю о любых замеченных неисправностях оборудования или неверной работе программного обеспечения;немедленно сообщать преподавателю о любом случае травматизма в кабинете, особенно от электрического тока.