Рассмотрим вариант решения задания из учебника Босова 8 класс, Бином: 178. Напишите программу, которая вычисляет: а) дискриминант квадратного уравнения: program DD; var a, b, c, d: integer; begin write('введи a, b, c) > '); readln(a, b, c); d := sqr(b) + 4 * a * c; writeln('D=', d); end. б) площадь кольца, если его толщина t см, а диаметр внутреннего круга - d см: program SS; var t, d: integer; s: real; begin write('введи t и d > '); readln(t, d); s := pi * sqr(d + t) - pi * sqr(d); writeln('S=', s); end.
