Найти среднее арифметическое всех целых чисел от - вопрос №2003299983 от franktyoma 27.12.2021 21:40

Question

Информатика: Найти среднее арифметическое всех целых чисел от a до 200 (значения a и b вво- дятся с клавиатуры; a =200);

franktyoma · Answer

Var
A,i:integer;
S:integer;
Sr:real;
b:integer;
begin
writeln('Введите а:');
readln(A);
b:=200;
for i:=A to 200 do
begin
S:=B+i;
End;
Sr:=S/A;
writeln('Среднее значение:',sr);
end.

Найти среднее арифметическое всех целых чисел от a до 200 (значения a и b вво- дятся с клавиатуры; a> =200);