Для чего производится описание массивов?

Для того что бы зарезервировать память для хранения элементов массива

1

Проанализируем каждый вариант ответа:

1) «10111101» может означать как «КОА», так и «НОК».

2) «1010110» может означать как «КАН», так и «НКН».

3) «10111000» может означать только «НОС».

2

1) «100101000» может означать как «ДКС» так и «НААС».

2) «101111100» может означать только «КОД».

3) «100111101» может означать как «ДОК» так и «НАОА».

3

1) «1010110» может означать как «НКН» так и «КАН».

2) «100000101» может означать как «ДСК» так и «НСАА».

3) «00011110001» может означать только «СОДА».

4

1) «10111101» может означать как «НОК» так и «КОА».

2) «00011110» может означать только «СОН».

3) «100111101» может означать как «ДОК» так и «НАОА».

Объяснение:

Удачи!

Программа:

Pascal:

program cd6059e5;

var a, b, c, d, x, xx, f: real;

begin

 write('а = '); read(a);

 write('b = '); read(b);

 write('c = '); read(c);

 d := b*b - 4*a*c;

 f := sqrt(d);

 writeln('D = ', d);

 

 if d > 0 then begin

   writeln('√D = ', f);

   x := (-b-f)/(2*a);

   xx := (-b+f)/(2*a);

   writeln('x1 = ', x);

   writeln('x2 = ', xx);

 end;

 if d = 0 then x := -b/(2*a);

 if d < 0 then writeln('Корней нет.');

end.

Исправил вашу программу. Корни неверно вычислялись, пару других моментов поправил.