Pascal:среднее арифм. всех целых чисел от 100 до b (b больше =100)

Question

Pascal:среднее арифм. всех целых чисел от 100 до b (b больше =100)

Экономика

Pascal:среднее арифм. всех целых чисел от 100 до b (b>=100)

Гость

Ответ(ы) на вопрос:

Accepted Answer

rogram z1; Var n,I,s,k:integer; Begin Writeln ('n='); Readln (n); S:=0;k:=0; If n>=100 then For I:=100 to n do begin S:=i+s; K:=k+1;end; Writeln (s/k); Readln ; End.