用PASCAL

```pascal program PrintASCII; var i, count: integer; begin count := 0; for i := 32 to 122 do begin write(i:3, ': ', chr(i):2, '|'); count := count + 1; if count mod 5 = 0 then writeln; end; end. ``` ```pascal program QuadraticEquation; var a, b, c, delta, x1, x2: real; begin readln(a, b, c); delta := b * b - 4 * a * c; if delta > 0 then begin x1 := (-b + sqrt(delta)) / (2 * a); x2 := (-b - sqrt(delta)) / (2 * a); writeln('x1=', x1:0:2, ' x2=', x2:0:2); end else if delta = 0 then begin x1 := -b / (2 * a); writeln('x1=', x1:0:2); end else writeln('No answer'); end. ``` [2025-12-15 12:21:16 | AI问答 | 263点数解答]