Даны два целых числа a и b (a < b найти произведение всех целых чисел от a до b включительно.

Var a,b,i,s: integer; begin writeln('введите a: '); readln(a); writeln('введите b: '); readln(b); s: =1; for i: =a to b do s: =s*i; writeln('произведение всех целых чисел от a до b включительно: ', s); end.

Const   nn=10; var   i,j,n: integer; begin   write('введите число строк в массиве (2..9): ');   read(n);   if (n< 2) or (n> 9) then writeln('неверное значение')   else       for i: =1 to n do       begin           if (i mod 2)< > 0 then for j: =1 to n do write(j)           else for j: =n downto 1 do write(j);           writeln       end end. тестовое решение: введите число строк в массиве (2..9): 5 12345 54321 12345 54321 12345

Uses   crt; const   nn=10; var   a: array[1..nn,1..nn] of integer;   d: array[1..nn] of boolean;   i,j,k,n,n1,i1: integer; begin   clrscr;   randomize;   write('укажите число строк в массиве (2-10): ');   read(n);   writeln('исходный массив');   for i: =1 to n do   begin       for j: =1 to n do       begin           a[i,j]: =random(51)-25;           write(a[i,j]: 4)       end;       writeln   end;   write('введите число, строки с которым надо удалить: ');   read(k);   for i: =1 to n do   begin       d[i]: =false;       j: =1;       while (j< =n) and not d[i] do       begin d[i]: =(a[i,j]=k); inc(j) end   end;   n1: =n;   while (d[n1]) and (n1> 0) do dec(n1);   if n1=0 then writeln('удалены все строки')   else begin       for i: =n1 downto 1 do       begin           if d[i] then begin       for i1: =i to n1-1 do         for j: =1 to n do a[i1,j]: =a[i1+1,j];       dec(n1)           end       end;       writeln('результирующий массив');       for i: =1 to n1 do       begin           for j: =1 to n do write(a[i,j]: 4);           writeln       end   end;   readkey end. тестовое решение: укажите число строк в массиве (2-10): 10 исходный массив   -6  23  18    9    4  15 -22  12  16 -18   11  20 -16 -22 -20 -24 -21  25  12  14   -11    7  22    4  -6 -15 -14  -7 -19    1   -16    5  -9  19    6  10    2    2  10  18   -18  -6 -24  21  16 -22  12    2 -25    5     0 -11  16 -11    6  21 -12  -1  13 -20   -24    3 -22  14  19  22    2 -15  10 -13   -22  16  12  24  -3  -2 -20  16 -11    4   -9 -15  -1 -20  17 -17 -24    3 -19    9   23    7 -25  -6  16  13  -5  22 -18  18 введите число, строки с которым надо удалить: -6 результирующий массив   11  20 -16 -22 -20 -24 -21  25  12  14   -16    5  -9  19    6  10    2    2  10  18     0 -11  16 -11    6  21 -12  -1  13 -20   -24    3 -22  14  19  22    2 -15  10 -13   -22  16  12  24  -3  -2 -20  16 -11    4   -9 -15  -1 -20  17 -17 -24    3 -19    9