Нужно решeние на Paskal ABC
Из интервала [a,b] найти среднее арифметическое тех чисел, при делении которых на m в остатке остается n.
Ответы
Ответ дал:
0
Вот держи !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Приложения:
![](https://st.uroker.com/files/382/382d168da85ef12994e3607da9ff0154.png)
Ответ дал:
0
Спасибо большое!!!
Ответ дал:
0
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
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
Приложения:
![](https://st.uroker.com/files/382/382d168da85ef12994e3607da9ff0154.png)
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад