Здесь есть 9 и 7 они означают чтото
За покупку от 2000 и больше покупатель получает бесплатную доставку
<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
</span>
begin
var (a,b):=ReadInteger2('Введите a,b,c,d->');
var (c,d):=ReadInteger2;
Write('Корни: ');
for var x:=0 to 1000 do
if a*x**3+b*x**2+c*x+d=0 then Write(x,' ');
end.
Пример:
Введите a,b,c,d-> 1 -3 -13 15
Корни: 1 5
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-50,100); a.Println;
var im:=a.IndexMin;
Writeln('Номер минимального элемента- ',im+1,', значение ',a[im]);
a:=(a[:im]+a[im+1:]).ToArray; a.Println
end.
<u>Пример</u>
-14 -21 2 -29 45 -48 81 22 0 5
Номер минимального элемента- 6, значение -48
-14 -21 2 -29 45 81 22 0 5