Паскаль. 1 дано целое число n.вычислить среднее - вопрос №3518211 от Foxyinfog 03.09.2020 20:39

Question

Информатика: Паскаль. 1 дано целое число n.вычислить среднее арифметическое всех чисел из диапазона от 1 до n. 2 дано целое число n.вывести на экран все нечётные числа из диапахона от 1 до n. вычислить их сумму.

Foxyinfog · Answer

var N,i:integer; begin readln(N); writeln((N+1)/2); end.   var N,sum,i:integer; begin readln(N); for i:=1 to N do if i mod 2 0 then begin writeln(i); sum:=sum+i; end; writeln(sum); end....