Язык Pascal. Пользователю дано два целых числа - a и b, при условии что a < b. Найти...

0 голосов
23 просмотров

Язык Pascal.
Пользователю дано два целых числа - a и b, при условии что a < b. Найти среднее арифметическое всех целых чисел в интервале [a;b].


Информатика (60 баллов) | 23 просмотров
Дан 1 ответ
0 голосов

Program s;
var a,b, sum, i, col: integer;
 sr: real;
begin
read(a);
read(b);
sum:=0;
col:=0;
for i:= a to b do begin
   sum:=sum+i;
   col:=col+1;
   sr:=sum/col;
   end;
write('среднее арифметическое равно ', sr);
end. 

(1.3k баллов)