Program jkfj;
var
a,b:integer;
begin
writeln ('Введите 1-ое число');
read (a);
writeln ('Введите 2-ое число');
read (b);
if a<b then write ('Большее b')
else write ('Большее a');
if a=b then write ('a и b равны')
end.
Сакура, могут быть ошибки в знаках, но в целом вроде хорошо!
Смещение вне цикла составляет (-12, 21), т.е. смещение внутри цикла = (12, -21)
Числа 11 и 5 не представляют никакого интереса, т.к. нам не требуется искать значения a и b, важно только то, что мы можем менять сдвиг в цикле как угодно, меняя только эти переменные.
Максимальное N = НОД(12, 21) = 3
Т.е. чертежник сдвигается на (12, -21), три раза выполнив операцию сдвига на (4, -7)
Тут надо каждое десятичное число переводить в двоичную. Это же 32 бит.))
Var a,b,c,i,n: integer;
begin
write('n = ');
readln(n);
a := 0;
write(a,' '); b := 1; write(b,' ');
for i:=3 to n do begin
write(a+b,' ');
c := b;
b := a + b;
a := c
end;<span>end.</span>