Преобразуем по схеме Горнера, избавляясь от вычисления степени х.
y = 5x²+7x-30 = -30+x(7+5x))
<u>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal('x=');
Writeln('Y=',-30+x*(7+5*x))
end.
<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
1. 40 килобайт = 40960/1024
2. ДВГАБ
3. 20 килобит это 20*1024=20480 бит это объем всего текста далее 16*64*40=40960 бит значит 2 страницы
с:/7 класс/опрос/самостоятельная работа.doc
5. вопрос не могу точно ответить 75
Var x1, x2, n:integer;
y: real;
begin
write('Введите х1: ');
read(x1);
n:=x1;
write('Введите х2: ');
readln(x2);
while n<>(x2+1) do
begin
y:=n/3+2;
writeln('y = ',y);
n:=n+1;
end;
<span>end.
</span>
1)1110001
2)10100111
3)101101100
4)1000001110