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

Question

68

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

категория: информатика

ответить

в избранное ссылка

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

s1ash · Accepted Answer

63

s1ash

31 марта 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: