Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var
 n,i:integer;
 a:real;
begin
 readln(n);
  for i:=1 to n do
   a:=a+i;
 a:=a/n;
writeln(a);
end.