Для ниже числовой последовательности написать программу для вычисления числа: 1/1*3-1/3*5+1/5*7-1/7*9++1/101*103-1/103*105

Program gt; var p: real; a,b,w: integer; begin a: =-1; b: =1; w: =-1; while a< =103 do begin a: =a+2; b: =b+2; w: =w*-1; p: =p+1/a*b*w; end; writeln(p); end. 2) program gt; var p: real; a,b,w: integer; begin a: =-1; b: =1; w: =-1; p: =0; while a< =103 do begin a: =a+2; b: =b+2; w: =w*-1; p: =p+(1/(a*b))*w; end; writeln(p); end.1-первый случай2-второй случай

program helloworld;

var x,y: integer;

begin

     

      x: =4;

             

      if (x< =0) then

              y: =0;

 

      if (x> =0) and (x< =1) then

              y: =x;

             

      if (x> 1) then

              y: =sqr(x);

 

      write(y);

end.

Если система пятеричная, в ней 5 цифр - от 0 до 4. но ноль не является натуральным числом, поэтому начнем с единицы. итак, 1, 2, 3, 4. каждое число получается увеличением значения своего предшественника на единицу. 4+1 = 5, это мы знаем, но цифры 5 в этой системе нет. так же, как в нашей десятичной системе нет цифры 10 - последняя в ней девятка. а 10 - это сброс разряда в ноль и перенос единички в следующий разряд. потом будет 1, 2, 3, ..9, и снова перенос 1 со сбросом в 0. в пятиричной системе - то же самое. после 4 идет сброс в ноль и единичка в старший разряд. поэтому получаются числа 10, 11, 12, 13, 14 далее - сброс, плюс единичка в старший, и получим 20. все, получено 10 чисел. окончательно: 1, 2, 3, 4, 10, 11, 12, 13, 14, 20