НЕ (Вторая буква гласная) ИЛИ НЕ (Последняя буква согласная)
1. НЕ (true) ИЛИ НЕ (false) = true
2. НЕ (true) ИЛИ НЕ (true) = false
3. НЕ (false) ИЛИ НЕ (true) = true
4. НЕ (true) ИЛИ НЕ (true) = false
5. НЕ (false) ИЛИ НЕ (true) = true
Ответ: 2, 4.
Var A, I, O: Integer;
Begin
ReadLn(A);
For I:=100 to 999 do Begin
If I div 100 = A Then
O:=O+1;
if (I div 10)-(I div 100) = A then
O:=O+1;
If I - ((I div 10)*10) = A Then
O:=O+1;
End;
WriteLn(O);
End.
Function sq(var x1,y1,x2,y2,x3,y3: real):real;
<span>begin
</span><span>// вычисляем площадь с помощью
</span><span>// векторного произведения
</span><span> sq:=abs((x2-x1)*(y3-y1)-(x3-x1)*(y2-y1))/2;
</span><span>end;
</span><span>// основная программа
</span><span>var x1,y1,x2,y2,x3,y3,x4,y4,s:real;
</span><span>begin
</span><span> write('координаты 4 вершин x1 y1 x2 y2 x3 y3 x4 y4 через пробел: ');
</span><span> readln(x1,y1,x2,y2,x3,y3,x4,y4);
</span><span> s:=sq(x1,y1,x2,y2,x3,y3)+sq(x1,y1,x4,y4,x3,y3);
</span><span> writeln('площадь четырехугольника S = ',s);
</span><span>end.
</span>координаты 4 вершин x1 y1 x2 y2 x3 y3 x4 y4 через пробел: 2 2 4 4 7 4 6 2
<span>площадь четырехугольника S = 7
</span>
Var a,b,x:real;
begin
write('Введите коэффициенты а и b: ');
readln(a,b);
x:=-b/a;
writeln('Ответ: x=',x);
<span>end. </span>