Описать функцию rootcount(a, b, c) целого типа, определяющую количество корней квадратного уравнения ax2 + bx + c = 0 (a, b, c — вещественные параметры, a ≠ 0). с ее найти количество корней для каждого из трех квадратных уравнений с данными коэффициентами. количество корней определять по значению дискриминанта.
нужно решить через процедуру в paskalabc
и если можно то с пояснениями
По одной из версий, название «винчестер» накопитель получил благодаря работавшему в фирме IBM Кеннету Хотону, руководителю проекта, в результате которого в 1973 году был выпущен жёсткий диск модели 3340, впервые объединивший в одном неразъёмном корпусе пластины диска и считывающие головки. При его разработке инженеры использовали краткое внутреннее название «30-30», что означало два модуля (в максимальной компоновке) по 30 МБ каждый, что по созвучию совпало с обозначением популярного охотничьего оружия — винтовки «Winchester Model 1894» использующего винтовочный патрон «.30-30 Winchester». Также существует версия, что название произошло исключительно из-за названия патрона, также выпускавшегося Winchester Repeating Arms Company
const n = 10;
var
a : array [1..n] of integer;
i : integer;
begin
randomize;
// Выбери нужный for
for i := 1 to n do
begin
a[i] := i;
writeln (a[i]);
end;
//a[1]=1,a[2]=2...a[10]=10
//рандомом
for i := 1 to n do
begin
a[i] := 1 + random (9);
writeln (a[i]);
end;
end.
2
const n = 25; //кол-во элементов
var a : array [1..n] of integer;
i,k : integer;
begin
randomize;
for i := 1 to n do
a[i] := -20+random(40);
k := 0;
for i := 1 to n do
if a[i] mod 2 =1 then
k := k +1;
writeln (k);
end.
3
const n = 10;
var a : array [1..n] of integer;
i,s1,s2 : integer;
begin
randomize;
for i := 1 to n do
begin
a[i] := -10+random(21);
writeln (a[i]);
end;
s1 := 0;
s2 := 0;
for i := 1 to n do
begin
if a[i] > 0 then
s1 := s1 +a[i];
if a[i] < 0 then
s2 := s2 +a[i];
end;
writeln ('Сумма положительных=',s1);
writeln ('Сумма отрицательных=',s2);
end.