Var n,m:integer;
begin
write('n = ');
readln(n);
m:=0;
while n>0 do
begin
m:=m*10+n mod 10;
n:=n div 10;
end;
writeln('m = ',m);
end.
Пример:
<span>n = 1234
m = 4321</span>
Sub aaa()
s = 0: sign = 1
i = 1
Do While i <= 100
s = s + sign * i
sign = -sign
i = i + 1
Loop
MsgBox s
End Sub
В результате будет получено значение -50.
Var
a,b,c,d:integer;
Begin
writeln('Введите цену тетради, карандаша и линейки соответственно');
read(a,b,c);
d:=a+b+c;
if d>200 then writeln('Баланс превышен');
End.
<span> в двоичной= 10</span>000<span>111
в восьмеричной=</span><span>207
шестнадцатеричной =</span><span> 87</span>
На одно число отведено 5 бит
всего чисел 2^5=32 => K=32