решить :
1. Ввести число.Если оно больше нуля,то умножить его на 10,в противном случае умножить его на -10. 2.Ввести число.Если оно четное,то разделить его на 2,в противном случае вычтите из него единицу. 3.Ввести трехзначное положительное число.Если первая цифра больше третий цифры,то найди их разность(из первой цифры вычесть третью).

1. Система счисления — символический метод записи чисел, представление чисел с письменных знаков.

2. Совокупность различных цифр, используемых в позиционной системе счисления для записи чисел, называется алфавитом системы счисления.

3. Позиционные и непозиционные

4. В позиционных системах счисления значение цифры зависит от местонахождения в записи числа. В непозиционных системах счисления, где бы цифра не находилась, она имеет одно и то же значение.

5. Система счисления — символический метод записи чисел, представление чисел с письменных знаков.

Можно по отдельности ввести в g00gle, все есть)

Предполагается, что вводимые числа - целые.

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.