Даны три квадратных уравнения. сколько из них имеют вещественные корни 1 уравнение ax^2+bx+c=0 2 уравнение bx^2+ax+c=0 3 уравнение cx^2+ax+b=0 объясните

Var       a, b, c: real;       k : = 0; begin       readln(a, b, c);       k : = k + integer(b * b - 4 * a * c > = 0);       k : = k + integer(a * a - 4 * b * c > = 0);       k : = k + integer(a * a - 4 * c * b > = 0);       writeln(k); end.

Адекватная версия:

PascalABC.NET

begin

 var expr := Readstring();

 expr.Split(' ')[0].Println;

end.

Версия "Нас так учили"

var  

expression: string;

s_index: byte;

begin

 s_index := 1;

 readln(expression);

 while expression[s_index] <> ' ' do begin

   write(expression[s_index]);

   s_index := s_index + 1;

 end;  

 

end.

Объяснение:

Т.к по условию слово - последовательность непробельных символов, ограниченная пробелами или концами строки, то данная программа полностью игнорирует пунктуацию и считает любой символ частью того слова, с которым он не разделён пробелом.

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',20); a.println;   var imin: =a.indexmin;   writeln('номер минимального элемента- ',imin+1);   writeln('элементов, равных минимальному- ',           a.where(x-> x=a[imin]).count-1) end. пример n= 50 -13 17 18 10 -6 13 16 -12 -15 10 18 -7 -20 18 14 14 11 20 4 4 -10 6 -20 11 -2 4 7 -3 -20 -18 -6 11 -15 -8 16 11 -13 3 -5 2 6 7 -10 11 8 19 1 -11 16 -10 номер минимального элемента- 13 элементов, равных минимальному- 2