Язык Pascal.

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

Question

Информатика

Вильгельм

12 июня, 08:42

Язык Pascal.

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

+2

Ответы (1)

Знаете ответ?

Новелла · Answer 1

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.

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

Язык Pascal.

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