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 summa;
var a,b,c,d,s:integer;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Введите третье число: ');
readln(c);
write('Введите четвертое число: ');
readln(d);
s:=a+b+c+d;
write('Сумма равна: ',s);
end.
Нц 3 раз
влево
кц
нц 3 раз
вверх
кц
закрасить
нц
пока справа свободно ,то
вправо
закрасить
кц
нц
пока снизу свободно,то
вниз
закрасить
кц
нц
пока слева свободно,то
влево
закрасить
кц
нц
пока сверху свободно,то
вверх
закрасить
кц