Пользователь вводит с клавиатуры целые положительные числа, разделяемые нажатием клавиши . признаком конца последовательности является число 0. напишите программу, которая выводит на экран сумму и среднее арифметическое чётных чисел(выполнить программу с операторов цикла while и repeat)

Program ex;uses crt;var N, count, sum: integer; 
begin  N:= 1;  count:= 1;  while not(N = 0) do  begin    read(N);    if N mod 2 = 0 then    begin      sum:= sum + N;      count:=count + 1;    end;     end;  writeln('sum = ',sum);  writeln('sr. arefm. = ',sum/count);end.

Задание 3.
В двоичной системе счисления есть 2 цифры это 0 и 1
В троичной три цифры 0 1 2
В пятничной пять цифр 0 1 2 3 4
В твоём задании есть число 6
А значит это система счисления с основанием 7 .
А шестеричной системе счисления шесть цифр 012345
Задание 5.
ответ во вложении. Таблицу можешь скачать с интернета .
Задание 7.
ответ троичная .
Так как там максимальная 2.
Задание 9.
ответ во вложении.
Задание 11.
Ну можно сделать так . 1F перевести в десятичную . Это будет 1*16+15=31 , следующее число это 32 . Теперь нам нужно обратно . 32/16 = 2 и о в остатке значит следующее число 20 (оно в 16 ричной системе счисления.
Задание 12.
ответ во вложении.
Задание 13.
С запятыми не знаю (
Задание 14.
Ну из какой то системы счисления в десятичную всегда умножается на основание этой системы в какой то степени . Здесь умножается на 7. Значит семеричная.
Задание 15.
Снова запятые (

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var p := 1 - 1 / 2;

 var i := 3;

 while i <= n do

 begin

   p *= 1 - 1 / i;

   i += 1

 end;

 Println(p)

end.

Объяснение:

Хороший "страдать фигней", программируя подобные задачи.

Ведь понятно, что (1 - 1/2) (1 - 1/3) ( 1 - 1/4) ... (1 - 1/n) всегда равно 1/n

В самом деле? 1/2 × 2/3 × 3/4 × 4/5 × ... (n-1)/n = 1/n, потому что соседние члены взпимно сокращаются.

Правда, задав достаточно большое n, можно убедиться, что арифметика вещественных чисел небезупречна в точности. В приведенном примере для n = 2 миллиарда получаем погрешность уже в 13-й цифре.