<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
Uses GraphABC;
begin
Rectangle(0, 0, 11, 11);
end.
1) А:174; Б: понятия не имею
2) 6450 или 1100100110010
3) 3 бита
Правильный ответ : C. Внешний носитель