Укажите количество целых чисел в диапазоне от
700700
700 до
800800
800 (включительно), таких, что остаток от деления суммы нечетных цифр числа на
77
7 равен
66
6.

Компилятор или интерпретатор; интегрированная среда разработки; средства создания и редактирования текстов программ; обширные библиотеки стандартных программ и функций; отладочные программы, т.е. программы, находить и устранять ошибки в программе; "дружественная" к пользователю диалоговая среда; многооконный режим работы; мощные графические библиотеки; утилиты для работы с библиотеками встроенный ассемблер; встроенная справочная служба; другие специфические особенности. популярные системы программирования — turbo basic, quick basic, turbo pascal, turbo c.

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Степень полинома:');
  var p:=ReadArrReal('Коэффициенты полинома по убыванию степеней:',n+1);
  var a:=ReadReal('Значение А:');
  var q:=new real[n+2];
  q[0]:=p[0];
  q[n+1]:=-p[n]*a;
  for var i:=1 to n do q[i]:=p[i]-a*p[i-1];
  Writeln('Коэффициенты результирующего полинома');
  q.Println
end.

Контрольный пример

P(x)=3x²-4x+5, A=2.5
(x-A)P(x)=3x³-11.5x²+15x-12.5

Результат выполнения программы
Степень полинома: 2
Коэффициенты полинома по убыванию степеней: 3 -4 5
Значение А: 2.5
Коэффициенты результирующего полинома
3 -11.5 15 -12.5