Program z7; Var a,b:integer; dx,y,x:real;Begin Write('Введите начало отрезка а = '); readln(a); Write('Введите конец отрезка b = '); readln(b); Write('Введите шаг dx = '); readln(dx); x:=a; writeln(' X Y'); while x<=b do begin y:=x; writeln(x,' ',y); x:=x+dx; end;End.
Вариант значения D и работы алгоритма:
D := 40
40 > 30 (Да)
Y := 40
Смотри картинку
CLS
INPUT "N = ", N
INPUT "A = ", A
S = 0
FOR i = 0 TO N
P = A
FOR j = 1 TO i
P = P * (A + j)
NEXT j
S = S + 1 / P
NEXT i
PRINT ; "S = "; S
END
1.
a = 6;
b = -4;
a = a +b*2 = 6+(-4)*2 = 6-8 = -2
a > b ⇒ 6 > -2 ⇒ True; c = b-a = -4-(-2) = -2
Ответ: c=-2
2.1.
sqrt(x*x-7*x+10)/(x*x-8*x+12)
2.2
(power(x+1,3)/(x-1))*15*z*z+18*x*y*y
Ответ: см.картинку
Условие бесконечного цикла изначально или true (while) или false (repeat).