составьте программу дискриминанта так, чтобы а,b,с -задавались генератором случайных чисел (random);+эта программа должна включать в себя массив ( в Pascal )
Просьба писать по возможности с объяснением)
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Var koef:array[1..3] as integer;
d:real;
i:integer;
Begin
Randomize;
;Генерируем коэффициенты a b c
for i:=1 to 3 do
begin
koef[i]:=random(100);
end;
;Считаем дискриминант
d:=koef[2]*koef[2]-4*koef[1]*koef[3];
;выводим ответ
Writeln(d:5:2);
end.