Программирование на паскале.

Найти среднее арифметическое положительных чётных чисел натурального ряда до N.

(Использование цикличного оператора for)

Question

Информатика

Германик

11 октября, 05:14

Программирование на паскале.

Найти среднее арифметическое положительных чётных чисел натурального ряда до N.

(Использование цикличного оператора for)

+2

Ответы (1)

Знаете ответ?

Ладуся · Answer 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.

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

Программирование на паскале.

Найти среднее арифметическое положительных чётных чисел натурального ряда до N.

(Использование цикличного оператора for)