Skip to content

Instantly share code, notes, and snippets.

@iSarCasm
Last active April 5, 2016 10:18
Show Gist options
  • Save iSarCasm/34003797f8660f9a828a3bf1e2e659f7 to your computer and use it in GitHub Desktop.
Save iSarCasm/34003797f8660f9a828a3bf1e2e659f7 to your computer and use it in GitHub Desktop.
объявить А(8), В(8), рг1(16),Сч(4),См(16)
печать "введите А, В"
ввести А, В
См = 0
Сч = 8
рг1(15:8)=В(7:0)
1:
рг1 >> 1
Если А(7)=1 идти_к 2
идти_к 3
2:
См+рг1
3:
А<<1
Сч - 1
Если СЧ<>0 идти_к 1
печать См
конец
объявить А(8), В(8), рг1(16),Сч(4),См(16)
печать "введите А, В"
ввести А, В
См = 0
Если А(7)<>В(5) то См(15) = 1
рг1(7) = 0
рг2(7) = 0
Сч = 8
рг1(15:8)=В(7:0)
1:
рг1 >> 1
Если А(7)=1 идти_к 2
идти_к 3
2:
См(14:0)+рг1
3:
А<<1
Сч - 1
Если СЧ<>0 идти_к 1
печать См
конец
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment