Паскаль.На интервале от 100 до 300 найти среднее арифметическое чисел, кратное 10.
Паскаль.
На интервале от 100 до 300 найти среднее арифметическое чисел, кратное 10.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы