Найти среднее арифметическое всех целых чисел от - вопрос №2003300158 от Olgadaleewa 02.02.2023 14:35

Question

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

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