Напишите программу которая вычесляет(а)дискриминант квадратного уравнения (б)площадь кольца,если его толщина t см,а диаметрвнутреннего круга d см
Answers & Comments
anonymous5
Вот первая: Program test; Var d,a,b,c:integer; Begin Writeln("Введите коэффициенты каждого члена квадратного уравнения:"); readln(a,b,c); d=b*b-4*a*c; writeln(d); End.
Answers & Comments
Program test;
Var d,a,b,c:integer;
Begin
Writeln("Введите коэффициенты каждого члена квадратного уравнения:");
readln(a,b,c);
d=b*b-4*a*c;
writeln(d);
End.