1.Составить программу, вычисляющую сумму чисел данного ряда 5,9,13,17,21,25,29,33,37,41,45,49 (циклы For и While) 2. Составить блок-схему для данной программы 3. Составить таблицу трассировки
Var a,b,c,D,x1,x2:double; begin Write('Введите коэффициенты квадратного уравнения А В С: '); Read(a,b,c); if a=0 then Writeln('А не может равняться нулю: уравнение не будет квадратным') else begin D:=sqr(b)-4*a*c; if D<0 then Writeln('Нет корней') else if D=0 then Writeln('x=',-b/(2*a)) else begin D:=sqrt(D); x1:=(-b-D)/(2*a); x2:=(-b+D)/(2*a); Writeln('x1=',x1,', x2=',x2) end end end.
Тестовое решение: Введите коэффициенты квадратного уравнения А В С: 2 -5 3 x1=1, x2=1.5
Объяснение:
короче говоря не знаю как это сделать пяный почерк я уже не помню точно но и в почте не могу найти в приложении к