№1 найдите среднее арифметическое всех целых чисел от a до b( значения a и b вводятся с клавиатуры)

neste2 neste2    3   28.06.2019 14:50    4

Ответы
Arisha666 Arisha666  22.07.2020 19:30
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика