Программирование на паскале.
Найти среднее арифметическое положительных чётных чисел натурального ряда до N.
(Использование цикличного оператора for)
Найти среднее арифметическое положительных чётных чисел натурального ряда до N.
(Использование цикличного оператора for)
Answers & Comments
var s:real; n,i,k:integer;
Begin
clrscr;
Write('n='); readln(n);
s:=0;
k:=0;
for i:=1 to n do
if i mod 2=0 then begin
s:=s+i;
k:=k+1;
end;
s:=s/k;
writeln('srednee=',s);
writeln;
End.