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

Question

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

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

Answer 1

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.