Найти произведение чисел 2, 4 , 6, 8, 10 дано: i=2 i=i+2 s=1 найти: s-? как: s=s*i i меньше 10.

uses crt; var  i,s: integer; begin  i: =2; s: =1;   while i< =10 do  begin    s: =s*i;     i: =i+2;   end;   write(s); end.

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin   var p: =range(1,137);   writeln('сумма чисел от 1 до 137 равна ',p.sum);   writeln('их произведение равно ',p.aggregate(biginteger(,y)-> x*y)) end. результат сумма чисел от 1 до 137 равна 9453 их произведение равно 5012888748274991661034926292112253883237205694398754483388962668892510972746226260034675717797072343372830591567227826571884373881355612819314826377917827129740056802397016509378163883274055583382110208000000000000000000000000000000000

// 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