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.

Answer 2

Pascal: Вычисление среднего арифметического и суммы нечетных чисел

Для решения задачи по вычислению среднего арифметического всех чисел в диапазоне от 1 до N в языке программирования Pascal, можно использовать цикл и переменные для хранения суммы и количества чисел.

program AverageAndSum;
var
  N, i, sum, count: integer;
  average: real;
begin
  write('Введите число N: ');
  readln(N);
  
  sum := 0;
  count := 0;
  
  for i := 1 to N do
  begin
    sum := sum + i;
    count := count + 1;
  end;
  
  average := sum / count;
  
  writeln('Среднее арифметическое чисел от 1 до ', N, ' равно: ', average:0:2);
end.

Для решения задачи по выводу на экран всех нечетных чисел в диапазоне от 1 до N и вычислению их суммы, также можно использовать цикл и условие проверки на нечетность числа.

program OddNumbersAndSum;
var
  N, i, sum: integer;
begin
  write('Введите число N: ');
  readln(N);
  
  sum := 0;
  
  writeln('Нечетные числа от 1 до ', N, ':');
  
  for i := 1 to N do
  begin
    if i mod 2 <> 0 then
    begin
      writeln(i);
      sum := sum + i;
    end;
  end;
  
  writeln('Сумма нечетных чисел: ', sum);
end.

Оба примера кода позволяют решить поставленные задачи в языке программирования Pascal. Вы можете скопировать код и запустить его в среде разработки Pascal для проверки результатов.