Question

1. Разработать схему алгоритма для ввода четырёх целых чисел и вычисления их среднего арифметического.

2. Разработать схему алгоритма для вычисления дискриминанта d квадратного уравнения ax2 + bx + c = 0.

Answer 1

1)for i:=1 to 4 do

readln(a[i])

for i:=1 to 4 do

j:=j+a[i]

writeln(j/4);

 

2)writeln(a);

writeln(b);

writeln(c);

if b^2-4*a*c>0 then begin

x1:=(-b+sqrt(b^2-4*a*c))/(2*a);

x2:=(-b-sqrt(b^2-4*a*c))/(2*a)