помогите пожалуйста по информатике.

1. Вычеслить сумму:(1/1+2) + (2/2+3)+(3/3+4)+...+(99/99+100)

2.Найти среднее арифметическое всех целых чисел от 100 до 200

Это всё программы

1

Ответы и объяснения

2013-02-28T16:12:47+04:00

1) 

Program Posl;
Uses crt;
var i,res:integer;
begin
res:=0;
clrscr;
 for i:=1 to 99 do res:=res+(1+(i+1));
  
writeln('Result:',res);
readkey;
end.