Сделайте программу с помощью цикла while. Найдите среднее арифметическое всех целых чисел...

Question

Сделайте программу с помощью цикла while. Найдите среднее арифметическое всех целых чисел от 100 до b.​

Comments

язык программирования указывайте

---

а извини

---

Pascal

Answer 1

Ответ:

var s,i,b: integer;

begin

writeln('Введите b: ');

readln(b);

i:=100;

s:=0;

while (i

 begin

 s:=s+i;

 i:=i+1;

 end;

writeln('Среднее арифметическое целых чисел',

' от 100 до ',b,' равно ',s/(b+1-100));

end.

   

Comments

все правильно спасибо большое