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