1) сколько байт в одном килобайте на лазерном диске? 2) сколько байт в одном мегабайте на винчестере? 3) сколько байт в одном гигабайте на магнитной ленте?

1) 1 байт = 0,00098 килобайт 2) 1 мегабайт = 1048576 байты 3) 1 гигабайт = 1073741824 байты

#include < iostream>

#include < string>

using namespace std;

string dectobin(int num) // функция для перевода

{

string result; // строка для результата

for (; num! =0; num> > =1) // цикл со сдвигом вправо на 1 бит (работает быстрее чем деление на 2,

//но также делит)

result.insert(0, num& 1 ? "1" : "0"); // вставка цифры в начало строки (1 если последний бит 1, 0 если 0)

return result; // возврат результата

}

int main(int argc, char *argv[])

{

// тут думаю понятно, ввод данных и вызов функции

int num;

cout< < "enter number: ";

cin> > num;

cout< < dectobin(num);

return 0;

}

Function isprime(n: longint): boolean; var   found: boolean;   p: longint; begin   if n< 4 then isprime: =true   else begin       found: =(n mod 2=0);       p: =3;       while (not found) and (sqr(p)< =n) do           begin found: =(n mod p=0); p+=2 end;       isprime: =not found       end end; var   a,b,i: longint; begin   write('введите начало и конец интервала: ');   readln(a,b);   for i: =a to b do       if isprime(i) then write(i,' ');   writeln end.