Нужно решeние ** Paskal ABC Из интервала [a,b] найти среднее арифметическое тех чисел,...

Question

Нужно решeние на Paskal ABC
Из интервала [a,b] найти среднее арифметическое тех чисел, при делении которых на m в остатке остается n.

Comments

Массив или просто цикл?

Answer 1

var a,b,m,n,s,k,i:integer;
begin
readln(a,b,m,n);
s:=0; k:=0;
for i:=a to b do
if i mod m=n then
begin s:=s+i; k:=k+1; end;
if k>0 then writeln('среднее арифметическое=',s/k:5:2)
else writeln('требуемых чисел в данном диапазоне нет');
end.

Пример:
10 80 7 2
среднее арифметическое=47.50

Answer 2

Вот держи !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

---

Comments

Спасибо большое!!!