Программирование на паскале.Найти среднее арифметическое положительных чётных чисел натурального ряда до N.(Использование цикличного оператора for)
Программирование на паскале.
Найти среднее арифметическое положительных чётных чисел натурального ряда до N.
(Использование цикличного оператора for)
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
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.
Не нашли ответ?
Похожие вопросы