Паскаль.
На интервале от 100 до 300 найти среднее арифметическое чисел, кратное 10.

1

Ответы и объяснения

Лучший Ответ!
2014-02-19T16:42:52+04:00
Var
k, i:integer;
SrAr:real;
 
begin
k:=0;
s:=0;
for i:=100 to 300 do
if i mod 10=0 then
  begin
  k:=k+1;
  s:=s+i;
  end; 
SrAr:=s/k;
writeln(Sr:5:2);
end.