Условие ** украинском и ** русском во вложениях, решите плиз!!!задание лёгкое!С права **...

Question

Условие на украинском и на русском во вложениях, решите плиз!!!
задание лёгкое!С права на русском!

---

Скачать вложение Word (DOC)

Comments

А что нужно сделать? Взять два числа и расписать ответы?

---

неа надо сделать программу в делфи то есть создать ее!

---

сделайте в делфи

Answer 1

Var
    dat     : TextFile;
    s       : String;
    a, k, i : longint; //Int64 //Еxtended
begin
    AssignFile(dat, 'bit.dat'); 
    Reset(dat);
      Readln(dat, s);
    CloseFile(dat);

    val( Copy(s, 1, pos(' ', s) - 1), a, i);
    val( Copy(s, pos(' ', s) + 1, length(s)), k, i);

    AssignFile(dat, 'bit.res');
    ReWrite(dat);

    Writeln(dat, a shr (k - 1) and 1);
    Writeln(dat, a or 1 shl (k - 1));
    Writeln(dat, a xor 1 shl (k - 1));
    Writeln(dat, a shr (k + 1) shl (k + 1));
    Writeln(dat, a shl (sizeOf(a)*8 - k - 1) shr (sizeOf(a)*8 - k - 1));

    CloseFile(dat);
 end.