Question

1) напишите линейную программу, в результате выполнения которой в целочисленной переменной s получится перевернутое целое четырехзначное число k. например: k=1357, то s=7531. 2) напишите линейную программу перевода любого целого четырехзначного двоичного числа в десятичную систему счисления. например, дано число в двоичной системе счисления: 1101. перевод в десятичную систему выполняется так: 1*2^3+1*2^2+0*2^1+1=13.

Answer 1

1)var n,k: integer; begin   write('число:   ');   readln(n);   k: =0;   repeat     k: =k*10+n mod 10;     n: =n div 10;   until n=0;   writeln('новое число:   ',k); end. 2) var n,k,m: integer; begin  write('двоичное число:   ');   readln(n);   k: =1;   m: =0;   repeat    m: =m+k*(n mod 10);     n: =n div 10;     k: =k*2;   until n=0;   writeln('десятичное число:   ',m); end.