1. Даны вещественные числа a, b, c (a ≠ 0). Выяснить, имеет ли уравнение 2 ax^2 + bx + c = 0 вещественные корни. 2. Для условий предыдущей задачи в случае наличия вещественных корней най- ти их, в противном случае — вывести на экран соответствующее сообщение. Вариант равенства корней отдельно не рассматривать.

04₁₀ = 100₂

10₁₀ = 1010₂

1996₁₀ = 11111001100₂

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

writeln(min);

writeln(kol_nol);

end;

космонафт   відповідь на

var m,r: real;

begin

writeln('вычисление расстояния между населенными пунктами.') ; writeln('ведите исходные данные: '); writeln('масштаб карты (количество километров в одном сантиметре)  > ');

read(m); writeln('расстояние между двумя точками, изображающими населенные пункты (см)  > ');

read(r); writeln('расстояние между населенными пунктами ', m*r,' км.');

end.