Y2 = 2, так как условие с каждым разом выдаёт один и тот же результат.
y2 = 0,5*(2 + x/2)
y1 = 2
y2 = 0,5*(2 + x/2)
y1 = 2
y2 = 0,5*(2 + x/2)
y1 = 2
....
Решил часть заданий. Склеить и поглотить попробуете сами.
1.
За неимением нужного шрифта я обозначил
Х прямое
высказывание, а
х отрицание
f1 =
(x1·x2·x3)v(x1·X2·X3)v(X1·x2·x3)v(X1·X2·X3)
f2 =
(x1·x2·X3)v(x1·X2·X3)v(X1·x2·x3)v(X1·X2·x3)
f3 =
(x1·x2·x3)v(X1·x2·x3)v(X1·x2·X3)v(X1·X2·x3)v(X1·X2·X3)
f4 =
(x1·x2·x3)v(x1·x2·X3)v(X1·x2·x3)v(X1·x2·X3)v(X1·X2·X3)
2.
f1 =
(x1·x2·X3)v(x1·X2·X3)v(X1·x2·X3)v(X1·X2·x3)
<span>В Excel листах защита без пароля. Защиту не снимайте, чтобы не
модифицировать формулы, иначе может быть ошибка. Листы живые, подставляйте
формулы в ячейки, защита в них снята.</span>
Var a,b:integer;
begin
Writeln('Введите два числа через пробел');
Read(a,b);
If a<b then write('1') else write('2');
<span>End.</span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Range(41,160,2).Aggregate(BigInteger(1),(i,j)->i*j).Println;
Range(1500,3000).Where(t->t mod 150=0).Sum.Println;
Range(2500,7000).Where(t->t mod 17=0).Count.Println
end.