Var a,b,c,s,x: integer;
begin
write('x = '); readln(x);
<span> а:=х div 100;
</span><span> b:=x mod 100 div 10;
</span><span> c:=x mod 10;
</span><span> s:=a+b+c;
</span> writeln(s);
end.
При вводе x = 248 будет напечатано 14, при вводе x = 789 будет напечатано 24
Var n : integer;
begin
readln (n);
if (n > -100) and (n < 100) then write ('Это число двузначное');
if (n > -1000) and (n < 1000) then write (Это число трёхзначное);
end.
1)В5(в восьмиричной системе счисления)
2)110000(в двоичной системе счисления)
3)А2(в восьмиричной системе счисления)
3)111000(в двоичной системе счисления)