№1 Найдите среднее арифметическое всех целых чисел от a до b( значения a и b вводятся с клавиатуры)
№1 Найдите среднее арифметическое всех целых чисел от a до b( значения a и b вводятся с клавиатуры)
Гость
Ответ(ы) на вопрос:
ГостьVar x, a, i, b:integer;
Begin
X:=0;
Readln(a,b);
For i:= a to b do x:=x+i;
Write(x/b);
End.
Не нашли ответ?
Похожие вопросы