Var
a:longint;
s:string;
begin
writeln('Введите целое число');
readln(a);
Str(a,s);
writeln('Количество цифр в числе равно ',length(s));
end.
var
i, n: integer;
begin
readln(n);
for i := 1 to 10 do begin
writeln(n,' x ', i, ' = ', n*i);
end;
end.
Позиционная наша обычная которой пользуемся десять - 10
непозиционная римская десять - XX
1)
_256 _100100 _ ABC
<u> 77 </u> <u> 1011 </u> <u> FF</u>
157 11001 3D
2) A B C D E F 10 11 12 13 14
(10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20)
3)
1011 254
<u> 111</u> <u> 613</u>
10010 1067<u>
</u>