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

Аметисса1Грэсс Аметисса1Грэсс    2   01.06.2019 18:50    1

Ответы
ллл107 ллл107  01.10.2020 16:34
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика