Вычислить сумму 2/3+3/4+4/5++10/11 в паскале с оператором цикла (я в 7 классе)

Uses crt; var a, b, c, i, n : integer;     s : real; begin     clrscr;     writeln ('введите числитель последней дроби, превышающий 1');     readln (n);     for i: =2 to n do          s: =s+i/(i+1);     writeln ('сумма дробей с точностью до 10 знаков = ', s: 0: 10); end.p.s. надеюсь на и лучший ответ.

1) описание массива должно быть константным, запись  n+20 - переменная. изменить: задать n+20 в виде константы.

 

2) будет куча ошибок

а) i: byte - есть декларация, но нет инициализации перед использованием, вероятно, будут ошибки при попытке использования как индекс массива. (не совсем уверен, возможно разные среды могут проводить автоинициализацию в ноль, в таком случае тоже будет ошибка, но уже из-за несуществующего индекса массива)

б) нет декларации переменной c, хотя она используется (if c[i] mod 10=0 then p: =p+1; )

 

1)

program z1;

var a: integer;

begin read(a);

if (a> 9) and (a< 100) then writeln(a, '-двузначное число')

else writeln(a, '-не является двузначным числом');

end.

2)

program z2;

var i: integer;

begin

for i: =1 to 9 do if (i mod 2 = 1) then writeln(i, ', ');

end.

2 способ:

program z2; var i: integer; begini: =1; while i< =9 do begin write(i, ', '); i: =i+2; end; end.

3)

program z3; var i,n: integer; s: real; a: array[1..100] of real; beginwrite('введите количество элементов массива: '); readln(n); write('введите элементы массива: '); for i: =1 to n do read(a[i]); i: =1; s: =0; while i< =n do begin s: =s+a[i]; i: =i+2; end; write('s=',s); end.