Переменная Х <span>будет принимать значение 17.</span>
1)
CLS
INPUT "a = ", a
INPUT "b = ", b
INPUT "c = ", c
D = b * b - 4 * a * c
IF D >= 0 THEN
PRINT "x1 = "; (-b + SQR(D)) / (2 * a)
PRINT "x2 = "; (-b - SQR(D)) / (2 * a)
ELSE
PRINT "Korney net"
END IF
a = 3
b = 7
c = 4
x1 = -1
x2 = -1.333333
2)
CLS
INPUT "N = ", N
FOR i = 1 TO N
S = S + i * (i - 2)
NEXT i
PRINT "S = "; S
N = 3
S = 2
Ну. некоторые из них ложные.ТАМ ГДЕ НАПИСАНО РЯДОМ Л ЭТО ЛОЖ А ТАМ ГДЕ И ЭТО ИСТИНА
Program enot;
VAR p:real;
i,n:integer;
BEGIN
p:=1;
read(n);
for i:= n downto 1 do
p:= p*i;
writeln(p:4:2);
<span> end.</span>