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
Алгоритм - Действия которые нужно выполнить строго в таком порядке , что бы получить желанный результат
<em>// PascalABC.NET 3.2, сборка 1362 от 14.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-45,45); a.Println;
Swap(a[0],a[9]); a.Println
end.
<u>Пример</u>
32 -1 21 17 13 11 -7 14 -7 4
4 -1 21 17 13 11 -7 14 -7 32
uses crt;
var
a, b, i : real ;
begin
clrscr;
write('Курс $= '); readln (a);
write ('Сумма в рублях = '); readln (b);
i:= b/a;
writeln (i:6:2);
readkey;
end.