Помогите!!!!! 1) Напишите линейную программу, в результате выполнения которой в...

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.

Comments

var n,k: integer;
begin
  write('число:  ');  readln(n);
  k:=(n mod 10)*1000;
  k:=k+((n div 10) mod 10)*100;
  k:=k+((n div 100) mod 10)*10;
  k:=k+n div 1000;
  writeln('новое число:  ',k);
end.
У вас ЛИНЕЙНАЯ программа, ветвлений не должно быть, это для линейной программы задание 1 

---

var n,k: integer;
begin
  write('двоичное число:  ');  readln(n);
  k:=n mod 10;
  k:=k+((n div 10) mod 10)*2;
  k:=k+((n div 100) mod 10)*4;
  k:=k+(n div 1000)*8;
  writeln('десятичное число:  ',k);
end.
Это линейная программа для задания 2