Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Виктор Сисей
Language: PASCAL
Code:
writeLv(enter a,b,c)
Readln(a,b,c)
D=b+b-4*a*c
writenLN(D=D=6 2)
IF D> tHwriteLv(enter a,b,c)
Readln(a,b,c)
D=b+b-4*a*c
writenLN(D=D=6 2)
IF D> tHEN BEGIwriteLv(enter a,b,c)
Readln(a,b,c)
D=b+b-4*a*c
writenLN(D=D=6 2)
IF D> tHEN BEGIN X1:
                    
Comments: