Предполагается, что вводимые числа - целые.
1) С цикла Repeat Until
Program n1;
Uses CRT;
Var s,k,i: integer;
sr: real;
begin
Writeln('Vvodite chisla. Vvedite 0 dlya okoncania vvoda');
Repeat
Readln(i);
s:=s+i;
inc(k);
Until i=0;
sr:=s/(k-1);
Writeln('Srednee arifmeticheskoe = ',sr:4:4);
readln
end.
2) С цикла While
Program n1;
Uses CRT;
Var s,k,i: integer;
sr: real;
begin
Writeln('Vvodite chisla. Vvedite 0 dlya okoncania vvoda');
i:=1;
While i<>0 do
begin
Readln(i);
s:=s+i;
inc(k);
end;
sr:=s/(k-1);
Writeln('Srednee arifmeticheskoe = ',sr:4:4);
readln
end.
3) С цикла For
Program n1;
Uses CRT;
Var s,j,k,i: integer;
sr: real;
begin
Writeln('Vvedite kolichestvo chisel');
Readln(k);
Writeln('Vvodite chisla');
For j:=1 to k do
begin
readln(i);
s:=s+i;
end;
sr:=s/k;
writeln('Srednee arifmeticheskoe = ',sr:4:4);
readln
end.
1. Система счисления — символический метод записи чисел, представление чисел с письменных знаков.
2. Совокупность различных цифр, используемых в позиционной системе счисления для записи чисел, называется алфавитом системы счисления.
3. Позиционные и непозиционные
4. В позиционных системах счисления значение цифры зависит от местонахождения в записи числа. В непозиционных системах счисления, где бы цифра не находилась, она имеет одно и то же значение.
5. Система счисления — символический метод записи чисел, представление чисел с письменных знаков.
Можно по отдельности ввести в g00gle, все есть)