1)
var x,y : integer;
begin
read (x);
y := 5 * x * x + 16 * x * x + 18 * x - 29;
write (y);
end.
2)
var a,b : integer;
c,p,s : real;
begin
readln (a,b);c := sqrt(a*a + b*b);
p := a + b + c;s := (a*b)/2;
write ('Периметр равен ',p,', площадь равна ',s, '.');
end.
3)
var a,b,c : integer;
begin
readln (a,b,c);
write ((a+b)/(a-b) + sqrt(c/2));
end.
периметр это сумма длин всех сторон. следовательно для того чтобы найти периметр нужно длину умножить на два и ширину умножить на два потом два ответа сложить (а*2)+(б*2) или же сложить все стороны
Program Maz; var a,b:integer; rez:real; p:char;begin write('Введите а = ');readln(a);write('Введите символ: '); readln(p); write('Введите b = '); readln(b); case p of '+': rez:=a+b; '-': rez:=a-b; '*': rez:=a*b; '/': rez:=a/b; end; writeln(a,p,b,'= ',rez); end.
350(6)=3*6^2+5*6^1+0*6^0
778(11)=7*11^2+7*11^1+8*11^0
1001001(3)=1*3^6+0*3^5+0*3^4+1*3^3+0*3^2+0*3^1+1*3^0
<span>10101101</span>(4)=1*4^7+0*4^6+1*4^5+0*4^4+1*4^3+1*4^2+0*4^1+1*4^0
В каждом уравнении системы пара скобок, связанных конъюнкцией.
Для получения истины нужно чтобы и первая скобка была истинна, и вторая скобка была истинна.
При этом каждая скобка является отрицанием эквиваленции, проще говоря, x1 не равно x2, x2 не равно x3 и т.д.
Получается, что в наборе цепочек значений x1..x10 не может быть двух подряд идущих единиц или нулей. То есть, если, к примеру, в наборе значений x3=1 и x4=1, то второе уравнение будет ложно, значит ложной будет вся система.
Выходит, всего существует два набора переменных:
x1 1 0
x2 0 1
x3 1 0
x4 0 1
x5 1 0
x6 0 1
x7 1 0
x8 0 1
x9 1 0
x10 0 1
Ответ: 2 набора.