Не позиционный с.с. - римская или арабская
Позиционная с.с. - двоичная, троичная, восьмеричная, десятиричная и тп
var N,N1,s:integer;
BEGIN
writeln('Введите целое число:');
readln(N);
N1:=N;
while N<>0 do begin
s:=s+N mod 10;
N:=N div 10;
end;
writeln('Сумма цифр числа ',N1,' равна ',s,'.');
end.
#include <iostream>
using namespace std;
unsigned long int Rev(unsigned long int x);
int main()
{
unsigned long int a, b;
cout << "Input a natural number A: ";
cin >> a;
cout << "Input a natural number B: ";
cin >> b;
cout << "Rev(Rev(A) + Rev(B)) = " << Rev(Rev(a) + Rev(b));
}
unsigned long int Rev(unsigned long int x) {
unsigned long int numb = 0;
while (x != 0) {
numb = (numb + x % 10) * 10;
x /= 10;
}
return numb / 10;
}
/* Форматирование, скорее всего, не сохранится, поэтому прикрепляю .cpp файл */
// PascalABC.Net
var arr: array [1..15] of integer;
count: integer;
begin
for var i:=1 to 15 do
arr[i]:=random(1, 300);
writeln('Исходный массив: ');
for var i:=1 to 15 do
write(arr[i], ' ');
writeln();
count:=0;
for var i:=1 to 15 do
if (arr[i] > 9) and (arr[i] < 100) then
count += 1;
writeln('Количество двузначных чисел: ', count);
end.
Если речь идет о MS Word, то их 3: нумерованный, маркированный, многоуровневый.