Программирование на паскале.Отыскать среднее арифметическое положительных чётных чисел

Программирование на паскале.
Отыскать среднее арифметическое положительных чётных чисел естественного ряда до N.
(Использование цикличного оператора for)

Задать свой вопрос
1 ответ
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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт