Найти среднее арифметическое всех целых чисел от - вопрос №3299758200 от CheryLi 25.10.2022 14:20

Question

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

CheryLi · 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);