Решение задачи Proc 17

# include <iostream>
# include <windows.h>
# include <cmath>
# include <iomanip>
# include <fstream>
 
using namespace std;
 
int RootsCount (double A, double B, double C);
 
int main ()
 
{
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  double A, B, C;
  int answer = 0;  // количество корней квадратного уравнения
  for (int i = 1; i < 4; ++i) {
    cout << "Введите число A: ";     cin >> A;
    cout << "Введите число B: ";     cin >> B;
    cout << "Введите число C: ";     cin >> C;
    answer = RootsCount (A, B, C);
    cout << "Количество корней квадратного уравнения = " << answer << endl; 
  }
  system ("pause");
  return 0;
}
 
int RootsCount(double A, double B, double C)
{
  int res;  
  double D;   // дискриминант 
  res = 0;
  D = B * B -4 * A * C;
  if ( D < 0 ) {res = 0;}   else if ( D == 0 ) {res = 1;}   else if ( D > 0 ) {res = 2;}
  
  return res;
}

import random

def RootsCount(A,B,C):
    D = B**2 - 4*A*C
    if D < 0:
        return 0
    elif D > 0:
        return 2
    return 1

A = random.randrange(-10,10)
B = random.randrange(-10,10)
C = random.randrange(-10,10)
print("A = ", A)
print("B = ", B)
print("C = ", C)
print("Количество корней:", RootsCount(A,B,C))
									

program Proc17;
function RootsCount(A,B,C:Real):Integer;
var D:Real;
begin
 D:=Sqr(B)-4*A*C;
 if D<0 then RootsCount:=0; if D=0 then RootsCount:=1; if D>0 then RootsCount:=2;
end;
 
var
  A, B, C:Real;
  i:Integer;
begin
 for i:=0 to 3 do
  begin
   Write('Введите  A: ');
   Readln(A);
   Write('Введите  B: ');
   Readln(B);
   Write('Введите  C: ');
   Readln(C);
   Writeln('У квадратного уровнения ',RootsCount(A,B,C),' корня.');
  end;
end.