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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted 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.