Алисов 2 ноября 2019 в 08:50
ПАСКАЛЬ!.Необходимо найти среднее арифметическое всех целых чисел от a до b.
ФОРМАТ ВХОДНЫХ ДАННЫХ:
Вводятся два целых числа a и b(-2в15<либо равно a< либо равно b< либо равно 2в15 -1)
Формат выходных данных:
Требуется вывести одно число — искомое среднее, с точностью не менее шести знаков после запятой.
ПАСКАЛЬ!.Необходимо найти среднее арифметическое всех целых чисел от a до b.
ФОРМАТ ВХОДНЫХ ДАННЫХ:
Вводятся два целых числа a и b(-2в15<либо равно a< либо равно b< либо равно 2в15 -1)
Формат выходных данных:
Требуется вывести одно число — искомое среднее, с точностью не менее шести знаков после запятой.
Var
a,b,i:integer;
s:real;
begin
write(введите a: ); readln(a);
write(введите b: ); readln(b);
s:=0;
for i:=a to b do s:=s+i;
s:=s/(b-a+1);
write(Среднее арифметическое: );
writeln(s:10:6);
end.
a,b,i:integer;
s:real;
begin
write(введите a: ); readln(a);
write(введите b: ); readln(b);
s:=0;
for i:=a to b do s:=s+i;
s:=s/(b-a+1);
write(Среднее арифметическое: );
writeln(s:10:6);
end.
Компьютеры и вычисления
26
81
Для комментирования необходимо зарегистрироваться на сайте