Нужно решeние на Paskal ABC
Из интервала [a,b] найти среднее арифметическое тех чисел, при делении которых на m в остатке остается n.
Из интервала [a,b] найти среднее арифметическое тех чисел, при делении которых на m в остатке остается n.
More Questions From This User See All
Answers & Comments
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
Verified answer
Вот держи !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!